by En Fuego por Christo (3 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 8th October 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Seperate any string into words
Dim i, a As Integer
For i = 0 To 10
Word(i) = ""
Next
a = a + 1
For i = 1 To Len(Phrase)
If Mid(Phrase, i, 1) <> " " Then
Word(a) = Word(a) & Mid(Phrase, i, 1)
Else
a = a + 1
End If
Next
End Sub