Eso lo consigues con la función Split
Código:
Private Sub Form_Load()
Dim matriz() As String, variable As String
Dim x As Integer
variable = "hola como va"
matriz = Split(variable, " ")
For x = LBound(matriz) To UBound(matriz)
Debug.Print matriz(x)
Next
End Sub
Saludos