Private Sub GetTokenSample()
    ' Print some samples of the GetToken function.

    Dim strLine As String
    strLine = Panama
    Debug.Print "Line: " & strLine

    Do
        Dim strToken As String
        strToken = GetToken(strLine, " ")
        Debug.Print "Token: " & strToken
        Debug.Print "Line: " & strLine
    Loop While Len(strLine)
End Sub