German String zerlegen

[Wolli013]

Ich stehe irgenwie auf dem Schlauch!
Wie kann ich aus einer Adresszeile nur die Hausnummer auslesen?

Beispiel
Am Bollhof 23 = Ergebniss 23
Spielplatz 123 = Ergebniss 123
Auf der großen Freiheit 56 A = Ergebniss 56 A

usw. usw.
Wer kann helfen?

 

[DonManfred]

Das hier als Anreiz

    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

 

[Wolli013]

Danke, werde ich gleich mal ausprobieren!

 

[Wolli013]

Funzt wunderbar, nochmals vielen Dank für deine Hilfe!