Need excel expert

[kashif.special2005]

Hi,

I want to find the position of first number position withing a word

like kashif5khan

I want the position of 5,

I am using this UDF function but this is not working

Public Function Result1(output As String) As Integer
Dim le As Long
Dim t As Variant
Dim k As Integer
le = Len(output)
For i = 1 To le
If Mid(output, i, 1) >= 0 Then
t = Mid(output, i, 1)
k = InStr(1, output, t)
End If

Next i

Result1 = k
End Function

Please help me.

Thanks & Regards,
Kashif.

 

[VoG]

Try this

Function FindNo(r As Range) As Integer
Dim i As Integer
For i = 1 To Len(r.Value)
    If IsNumeric(Mid(r.Value, i, 1)) Then
        FindNo = i
        Exit Function
    End If
Next i
End Function

 

[kashif.special2005]

Thanks a lot.....