German Jeden 1. Buchstaben eines Wortes

Private Sub ErsteBuchStaben(Text As String) As String
    Private i As Int
    Private Buchstaben(), BuchstabenWort As String
    
    Buchstaben = Regex.Split(" ", Text)
    For i = 0 To Buchstaben.Length - 1
        BuchstabenWort = BuchstabenWort & Buchstaben(i).CharAt(0)
    Next
    Return BuchstabenWort
End Sub

Private Sub ErsteBuchStaben(Text As String) As String
   Dim sb As StringBuilder
   sb.Initialize
   Dim m As Matcher = Regex.Matcher("\b\w", Text)
   Do While m.Find
       sb.Append(m.Match)
   Loop
   Return sb.ToString
End Sub