Private Sub GetTokenFastSample()
    ' Print some samples of the GetTokenFast function.

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

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