Ввод массива размерностью N с клавиатуры без использования InputBox

Public Class Form1
    Dim array(10) As Byte
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'ввод через randomize и вывод в label
        Dim i As Byte
        Dim s As New Random
 
        Label1.Text = "Массив: "
        For i = 0 To 9
            array(i) = s.Next(1, 150)
            Label1.Text = Label1.Text + " " + CStr(array(i))
        Next
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        'ввод через InputBox и вывод в label
        Dim i As Byte
        Dim n As Object
        Label1.Text = "Массив: "
        For i = 0 To 9
            n = InputBox("Введите значение:")
            array(i) = CByte(n)
            Label1.Text = Label1.Text + " " + CStr(array(i))
        Next
    End Sub
End Class

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label1.Text = "Введите через запятую элементы массива"
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim array() As String = Split(TextBox1.Text, ",")
        Label1.Text = String.Join(" ; ", array)
    End Sub
 
    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        Static n As Integer = 0
        If e.KeyChar = "," Then
            n += 1
            If n = 10 Then
                e.Handled = True
                MsgBox("Хватит!  Жми на кнопку Button1!")
            End If
        End If
    End Sub

Dim array() As String = Split(TextBox1.Text, ",")
        Label1.Text = String.Join(" ; ", array)