Добавление текстбоксов по нажатию клавиши и удаление по нажатию другой кнопки - VB

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

Всем доброго времени суток. Хотел попросить помощи в написании следующего кода. Кое что набросал, но не работает при удалении TextBox_а.

Private Sub Command1_Click()
k = k + 1
z
End Sub
Private Sub z()
    Form1.Controls.Add "VB.TextBox", "Control" & Form1.Controls.Count
    Form1.Controls(Form1.Controls.Count - 1).Left = 5000
    Form1.Controls(Form1.Controls.Count - 1).Top = 500 * k
    Form1.Controls(Form1.Controls.Count - 1).Width = 2000
    Form1.Controls(Form1.Controls.Count - 1).Height = 400
    Form1.Controls(Form1.Controls.Count - 1).Visible = True
End Sub

А как удалить ... незнаю) И можно ли создать динамический массив, который будет изменяться в зависимости от количества ТЕКСТБОКСов. Т.е. вводя значение , к примеру во 2-ой текстбокс, данное значение присваивалось 2 элементу массива. Всем откликнувшимся спасибо.

Решение задачи: «Добавление текстбоксов по нажатию клавиши и удаление по нажатию другой кнопки»

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

                            Private Sub Command2_Click()
If k Then
    Controls.Remove Controls(Controls.Count - 1)
    k = k - 1
End If
End Sub
                        