How to find a number in a string

[Steven McGarva]

Try this hack, I'm sure someone will post a better response.

Private Sub Command28_Click()
    Dim mystring As String
    Dim mynumber As Long
    Dim x As Integer
    Dim mytemp As Variant
    
    mystring = "jkj kj j jjjk 4.235kkik"
    
    For x = 1 To Len(mystring)
        If (IsNumeric(Mid(mystring, x, 1)) Or Mid(mystring, x, 1) = ".") Then
            mytemp = mytemp & Mid(mystring, x, 1)
        End If
    Next x
        
    'May need some conversion to Long here ???
    mynumber = mytemp


End Sub