Dim s() As Strings = Split(Text1.Text, " ")Text2.Text = s(0)Text3.Text = s(1)Text4.Text = s(2)
dim a(3) as stringa=split(text1.text," ")text2.text=a(1)text3.text=a(2)text4.text=a(3)
