Name Functions. Example: "LastName, FirstName" convert to "FirstName LastName".

Public Function LName(t As String) As String
    k = ""
    a = Trim(t)
    leng = Len(a)
    For i = 1 To leng
        p = Mid(a, i, 1)
        If p = "," Then
            Exit For
        End If
        
        k = k & p
    Next
    
    LName = Trim(k)

End Function

Public Function FName(t As String) As String
    k = ""
    a = Trim(t)
    leng = Len(a)
    For i = 1 To leng
        p = Mid(a, i, 1)
        If p = "," Then
            j = Right(a, leng - i)
        End If
    Next
    FName = Trim(j)
End Function

Public Function FLName(FName, LName) As String
   FLName = Trim(FName & " " & LName)
End Function