• Home
 · 
• Miscellaneous
 · 
• Seperate any string into words

Seperate any string into words

Seperate any string into words

Rate Seperate any string into words

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    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