VB in String

Prvi primer:

Dim abeseda() as string, mojString as string, wChr as string
Dim i as integer, j as integer

j = 0
mojString = "krog 400 300 120 "
For i = 1 To Len(mojString)
wChr = Mid$(mojString,i,1)
'prideš do blenka, ki označuje, da imaš v variabli željeni string
if wChr = " " Then
'tukaj nato nekaj narediš z izvlečeno besedo npr.
j = j + 1
redim preserve abesede(j)
abesede(j) = beseda
beseda = ""
else
beseda = beseda & wChr
endif
Next i

'pa še zadnjo, če na koncu ni blenka, če je tega ne rabiš
j = j + 1
redim preserve abesede(j)
abesede(j) = beseda

Drugi primer:
Dim start As Integer, koliko As Integer, beseda As String, mojString As String, j As Integer, abesede() As String

mojString = "krog 400 300 120 "
start = 0
j = 0
Do While True
beseda = ""
koliko = start + 1
start = InStr(start + 1, mojString, " ")
beseda = Mid$(mojString, koliko, start - koliko)
j = j + 1
ReDim Preserve abesede(j)
abesede(j) = beseda
If start >= Len(mojString) Then Exit Do
Loop

pa še kakšen primer bi se dalo narediti.
Upam, da zadostuje.

Hvala cisto dovolj je!

lp

MyString = "krog 400 300 120"
SubStrings = Split(MyString, " ")

Text1 = SubStrings(0)
Text2 = SubStrings(1)
Text3 = SubStrings(2)
Text4 = SubStrings(3)

kako pa izvem koliko elementov je v polju Substrings?

Sem že najdo :) se vem da je bedasto vprašanje, sem malo bil len...
je pa UBound(array, dimension)

lp, Slavc