Function that returns first word of the string.

lastWord.vb

Function lastWord(string As String) As String

    If String.IsNullOrEmpty(string) Then Return String.Empty

    Dim words As String() = string.Split(" ")
    
    Return words.Last
    
End Function