Public Function GetFirstNumber(SomeString As String) As Integer
Dim i As Integer
'
' Return first numeric character, or -1 if none
'
GetFirstNumber = -1
If Len(SomeString) = 0 Then Exit Function
For i = 1 To Len(SomeString)
If Mid(SomeString, i, 1) >= "0" And Mid(SomeString, i, 1) <= "9" Then
GetFirstNumber = Mid(SomeString, i, 1)
Exit Function
End If
Next i
End Function