Android Code Snippet [B4X] Extract the first letter of a first and last name

    Log(GetNameLetter("ti-logistic"))
    Log(GetNameLetter("Aeric Poon"))
    Log(GetNameLetter("McFarland, Dave"))
    Log(GetNameLetter("A & W"))
    Log(GetNameLetter("Stewart & Andrew"))

Public Sub GetNameLetter(Text As String) As String
    Dim Result As StringBuilder, Pattern As String = "(\w+).*\W+(\w+)$"
    Dim Matcher As Matcher = Regex.Matcher(Pattern, Text)
    Result.Initialize
    If Matcher.Find Then
        For i = 1 To Matcher.GroupCount
            Result.Append(Matcher.Group(i).SubString2(0,1))
        Next
    End If
    Result.ToString.ToUpperCase
End Sub