When I run this program the button for tokenize is not working I don't know why? Is there any changes?
Private Sub Tokenize_Click()
Dim tok As New Tokenizer
Dim s As String
tok.init txString.Text
lsTokens.Clear
s = tok.nextToken
While Len(s)>0
lsTokens.AddItem s
s = tok.nextToken
Wend
End Sub