Как сделать двумерный безразмерный массив? - VB

Формулировка задачи:

здравствуйте . У меня проблема как сделать двумерный безразмерный массив? у меня массив 10 на 10, а если введу 100 на 100 он не выводит ее. Как сделать так чтоб он выводил любую матрицу?

Dim a(10, 10), k, p As Integer
        Dim s As String
        k = Val(TextBox1.Text)
        p = Val(TextBox2.Text)
        ListBox1.Items.Clear()
        For i = 1 To k
            s = ""
            For j = 1 To p
                a(i, j) = Rnd() * 100 - Rnd() * 100
                s = s + " " + Str(a(i, j))
 
            Next
            ListBox1.Items.Add(s)
        Next
    End Sub

заранее спасибо

Решение задачи: «Как сделать двумерный безразмерный массив?»

textual
                            Листинг программы 
                        

                            SUB hilston '!!!
DIM a()As Integer '!!!
dim k, p As Integer
        Dim s As String
        k = Val(TextBox1.Text)
        p = Val(TextBox2.Text)
 
        REDIM A(K,P) '!!!
 
        ListBox1.Items.Clear()
'        For i = 1 To k
        For i = 0 To k 'индексы массивов в NET с нуля!
            s = ""
'            For j = 1 To p
            For j = 0 To p
                a(i, j) = Rnd() * 100 - Rnd() * 100
                s = s + " " + Str(a(i, j))
 
            Next
            ListBox1.Items.Add(s)
        Next
    End Sub
                        