Dim data As String
data = "Auf der großen Freiheit 56 A"
Dim matcher1 As Matcher
matcher1 = Regex.Matcher("\d+|\D+", data)
Dim st As String = ""
Dim nr As String = ""
Dim ad As String = ""
If matcher1.Find Then
st = matcher1.Match.Trim
If matcher1.Find Then
nr = matcher1.Match.Trim
If matcher1.Find Then
ad = matcher1.Match.Trim
End If
End If
End If
Log("Strasse: "&st)
Log("Hausnummer: "&nr)
Log("Prefix: "&ad)
Strasse: Auf der großen Freiheit
Hausnummer: 56
Prefix: A