Dim x As Integer
    Dim Strasse As String
    Dim HausNummer As String
    Dim start As Integer
 
    Strasse = "Herman Willhelm Str. 12 a"
 
    For x = 1 To Len(Strasse)
        If IsNumeric(Mid(Strasse, x, 1)) = True Then
            start = x
            Exit For
        End If
    Next
 
    HausNummer = Mid(Strasse, start, Len(Strasse))