Dim quelltext="" 'Der zu durchsuchende Quelltext
Dim maske="MelderNachname\+\*(.*?)\sVorname\*(.*?)\s"
Dim m = Regex.Match(quelltext, maske)
If m.Success Then
  Dim Nachname = m.Groups(1).Value
  Dim Vorname = m.Groups(2).Value
End If

Dim quelltext = "" 'Der zu durchsuchende Quelltext
Dim maske = "MelderNachname\+\*(.*?)\sVorname\*(.*?)\sLogin\+\*(" & _
  ".*?)\sZusatz-InfoForster(.*?)\sTelefon(.*?)\sObjektNo\+\*(\d+)\s"
Dim m = Regex.Match(quelltext, maske)
If m.Success Then
  Dim ergebnis1 = m.Groups(1).Value 'Mustermann
  Dim ergebnis2 = m.Groups(2).Value 'Birgit
  Dim ergebnis3 = m.Groups(3).Value 'MustermB
  Dim ergebnis4 = m.Groups(4).Value ' 124gfh1zd4nzutzhztere
  Dim ergebnis5 = m.Groups(5).Value '+49 (123) 456 4789
  Dim ergebnis6 = m.Groups(6).Value '123456789
End If

Dim maske = "(\+\d+) \((\d+)\) (.+)"
Dim m = Regex.Match(ergebnis5, maske)
If m.Success Then
  Dim ergebnis1 = m.Groups(1).Value '+49
  Dim ergebnis2 = m.Groups(2).Value '123
  Dim ergebnis3 = m.Groups(3).Value '456 4789
End If