Numeric in a string

[FloBob]

Is there a way to find out if there is any numbers inside of a string such as:

111222BM12A = true
1111233asaa = true
FREDS DATA = false

etc etc..

I am looking at actual file names so input masks wont help me. Any advice would be appreciated.. Thanks again.

 

[FloBob]

Nevermind I made my own. Thanks for reading though.

Function searchForNumeric(data As String) As Boolean

    Dim I As Integer
    
    For I = 1 To Len(data)
        If IsNumeric(Mid("data", I, I + 1)) Then
            searchForNumeric = True
            Exit Function
        End If
    Next
    
    searchForNumeric = False
    
End Function