Массивы vba

[tema654]

как каждое слово из предложения занести в массив?
вот что у меня не получилось:

Sub main()
Dim str As String, a(1 To 20), i As Integer, j As Integer, k As Integer, z As Integer
str = InputBox("наберите предложение","предложение", "каждое слово по отдельности")
z = 1
j = 0
For i = 1 To Len(str)
k = k + 1
    If Mid(str, i, 1) = " " Then
    j = j + 1
    a(j) = Mid(str, z, i)
    z = k
    End If
Next i
End Sub

[Stilet]

Sub main()
Dim str As String, a(1 To 20), i As Integer, j As Integer, k As Integer, z As Integer
str = InputBox("наберите предложение","предложение", "каждое слово по отдельности")
z = 1
j = 0
For i = 1 To Len(str)
 If Mid(str, i, 1) = " " Then
     j=j+1
 else
  a(j)=a(j) & Mid(str, i,1) 
 End If
Next i
End Sub

Мой старый способ, но не проверял на барсике.

[tema654]

Спасибо! ) работает. Если не сложно, ответе пожалуйста! почему у меня работает неправильно ?

[R Dmitry]

Сообщение от tema654

Спасибо! ) работает. Если не сложно, ответе пожалуйста! почему у меня работает неправильно ?

Sub main()
Dim str As String, a, i As Integer
str = InputBox("наберите предложение", "предложение", "каждое слово по отдельности")
a = Split(str, " ")
' Проверяем
For i = 0 To UBound(a)
Debug.Print a(i)
Next
End Sub

Лучше все же так