dim arreglo as new arraylist
Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Dim ch As Char
Dim lineaSeparada As String()
If ch = ChrW(13) Then
lineaSeparada = TextBox1.Text.Split(" "c)
For i As Integer = 0 To lineaSeparada.GetUpperBound(0)
arreglo.Insert(i, Integer.Parse(lineaSeparada(i)))
Next
TextBox1.Text = ""
End If