You can use the Split() function to create an array from them

Option Explicit

Private Sub Command_Click()
Dim S() As String, X As Integer
S = Split("this is some string", " ")
For X = 0 To...