• Home
 · 
• Miscellaneous
 · 
• Separates any given string into words, then stores each one in an array.

Separates any given string into words, then stores each one in an array.

Separates any given string into words, then stores each one in an array.

Rate Separates any given string into words, then stores each one in an array.

• 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