Split string by a space

Question

I have one string that has two words in it:

Cat Dog

How can I split these up so I get:

Str1 = Cat and Str2 = Dog

Please note this is for VB6.

Answer 1

or like this:

For Each i In output
  .... a even here
next

Answer 2

Use the Split function.

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

Would produce

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