[VisualBasic] Regexp um nach dem land zu suchen

 Sub prufe()
 sSearch = "Das benötigte Regex"

 Dim myReg As New Regex(sSearch)
 'Dim mc As MatchCollection = myReg.Matches(TextBox2.Text)
 Dim mc As MatchCollection = myReg.Matches(result)
 ' TextBox2.Text = mc.ToString


 Dim strB As New StringBuilder


 Dim m As Match
 Dim g As Group

 result = mc.Count & " Treffer"

 'Alle Matches durchlaufen
 For Each m In mc
 'den Treffen an den Stringbuilder anhängen
 strB.Append(m.Value & " an Index " & m.Index & vbCrLf)

 'wenn mehr als eine Gruppe gefunden wurde
 If m.Groups.Count > 1 Then
 'die einzelnen Gruppen an den Stringbuilder anfügen
 For i As Integer = 0 To m.Groups.Count - 1
 g = m.Groups(i)
 strB.Append(String.Format(" group({0}): {1}" & vbCrLf, i, g.Value))
 Next
 End If
 Next

 'den Stringbuilder als String ausgeben
 TextBox2.Text = strB.ToString()
 End Sub