CodeItBetter Programming Another VB Programming Blog

'String Manipulation - How to Find First Numbers of String (along with alphas & decimals)
Public Function FindFirstNumAlpha(ByVal MyString As String)
    Dim NumFoundFlag As Boolean
    Dim Char As String
    Dim I As Integer, StartPos As Integer
    NumFoundFlag = False
    For I = 1 To Len(MyString)
        Char = Mid$(MyString, I, 1)
        If IsNumeric(Char) = True And NumFoundFlag = False Then
            NumFoundFlag = True
            StartPos = I
        ElseIf (IsNumeric(Char) = False And Char <> "." And (Asc(Char) < 65 Or Asc(Char) > 90) And _
                (Asc(Char) < 97 Or Asc(Char) > 122)) And NumFoundFlag = True Then
            GoTo ExitHere
        End If
    Next
 
ExitHere:
    FindFirstNumAlpha = Mid$(MyString, StartPos, I - StartPos)
End Function
 
'How can I use this function:
'Debug.Print FindFirstNumAlpha("asdfsdx8a.9a,4,59sdf04dfd80 ) d99 - dk98")
'will display 8a.9a