Private Sub Command1_Click()
    Dim i As Long
 
    Text1 = "Sowie so Straße 25 A"
 
    For i = 1 To Len(Text1)
        If IsNumeric(Mid(Text1, i, 1)) Then Exit For
    Next i
 
    Text2 = Trim(Mid(Text1, i)) 'Hausnummer
    Text1 = Trim(Left(Text1, i - 1)) 'Straße
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1