Задача по VisualBasic

[ride013]

Привет можете помочь с задачей)

Нужно распечатать в столбик все слова строки, стоящие на четных местах.

Вот что у меня получилось

Private Sub Command1_Click()
Dim T
Dim J
Cls
T = InputBox("Ввести тектс без знаков препинания", "", "На улице холодно")
For J = 1 To UBound(Split(T, " ")) Step 2
Print Split(T, " ")(J)
Next J
End Sub

Но программа работает не коректно, при вводе цифр она их не выводит