تفکیک حروف در TextBox

[alipoor2009]

دوستان عزیز من یه Textbox دارم با قابلیت Multiline و می خواهم تعدادی شماره تلفن وارد کنم -حالا چطوری می شه شماره ها رو یکی یکی تو لیست باکس ریخت ؟

[m.4.r.m]

Private Sub Command1_Click()

On Error Resume Next

Dim St() As String
St() = Split(Text1.Text, vbCrLf)

For i = 0 To UBound(St)
List1.AddItem St(i)
Next

End Sub