Dim s As String = "1.2.3.4.5.6.7.8.9."
Dim ary() As String = s.Split(".")
Dim lbl As Label
For i As Integer = 0 To ary.Length - 2
lbl = New Label
lbl.Text = ary(i)
lbl.Location = New Point(i * 25, i * 25)
Me.Controls.Add(lbl)
Next
For Each a As Char In Me.TextBox1.Text
Select Case a
Case "1"
Me.Label1.Text = a
Case "2"
Me.Label2.Text = a
Case "3"
Me.Label3.Text = a
End Select
Next