[VBScript] Excel Macro: Split string in cells?

I have a list of names [First Last] in a column of Excel cells (A1 through A340 or so). The person who did the data entry was silly enough to put both first and last name in the same cell... it fell on me to write a script that would split them. Too bad I know no VBA, only VB.NET...

Example: Cell A1 has "John Smith". The macro needs to split it into A1 "John" and A2 "Smith", or A2 and A3, or whatever.

From VB experience, I know I should use a For loop to step through the string until I find a space, then chop and move... but can someone help me with appropriate commands for a VBScript macro?

Thanks,
Seth

I'll take a blind shot at this one.....

dim I as integer
dim C as character
for I = 1 to YourUpperLimit
for each C in .Cells(I,A).Value
if C="" then
.Cells(I,A).Value = Mid(.Cells(I,A).value,0,(C-1))
.Cells(I,B).Value = Mid(.Cells(I,A).value,C,(Len(cstr(.cells(I,A).Value)))
End If
Next C
Next I


It's a shot - I haven't messed with VBA in a really long time.