[RESOLVED] Separate text

[greenba]

Hi,

I have the following string:
"name1 | name2 | name3"

what I would like is that when I press the button it copies me:
name1 to Text1.Text
name2 to Text2.Text
name3 to Text3.Text

Adnan

[bushmobile]

Dim sParts() As String, N As Long
sParts = Split("name1 | name2 | name3", " | ")
For N = 0 To UBound(sParts)
    Me.Controls("Text" & N).Text = sParts(N)
Next N

[greenba]

thanx

[MartinLiss]

Now that we've helped you, you can help us by pulling down the Thread Tools menu and clicking the Mark Thread Resolved button which will let everyone know that you have your answer. Also if someone has been particularly helpful, or even particularly unhelpful, you have the ability to affect a their forum "reputation" by rating their post.
.