Генератор случайных чисел - VB (61166)

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

У меня есть код:

                    Листинг программы
                
Private Sub Command1_Click()
Label1 = Array("1", "2", "3")(Int(Rnd * 3))
End Sub
 
Private Sub Command2_Click()
End
End Sub

На форме один Lablel, и две кнопки (одна для вызова генератора) другая для выхода. Работает все нормально, меня вот что интересует: можно ли самому выбрать сколько чисел тебе нужно? К примеру, в поле для текста вписал 6, и нажал кнопку "Сгенерировать" и выпало случайное число от 1 до 6 (включительно). Ввел в поле 20, жмакнул кнопку и выпало число от 1 до 20. Помогите пожалуйста)

Решение задачи: «Генератор случайных чисел»

textual
                            Листинг программы 
                        
Private Sub Command1_Click()
Label1 = Int(Rnd * Val(Text1.Text)) + 1
End Sub
 
Private Sub Command2_Click()
End
End Sub