Question : splitdata macro udf

Hi experts

have the following macro and formula in the relevant cell to split the data - just need a slight amendment so it INCLUDES the number values ALSO

at present only the letter values are shown in the cell (worksheet)

Function splitdata(rng As Range)
    Dim k As Long
 
    For k = 1 To Len(rng.Value)
        If IsNumeric(Mid(rng.Value, k, 1)) = False And Mid(rng.Value, k, 1) <> "/" Then
            splitdata = splitdata & Mid(rng.Value, k, 1)
        Else
            Exit Function
        End If
    Next k
 
End Function

Answer : splitdata macro udf

Ahh the formula will be...

=IF(ISNUMBER(FIND("/",A1)),LEFT(A1,FIND("/",A1)-1),A1)

Saurabh...