Split string by a space

Use the Split function.

Dim output() As String
output = Split("Cat Dog", " ")

Would produce

output(0) = Cat
output(1) = Dog