Помогите пожалуйста! - VB

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

Составить программу, которая на входе должна получать последовательность цифр, после чего программа показывает цифру, порядковый номер которой ввел пользователь.

Решение задачи: «Помогите пожалуйста!»

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

                            Private Sub CommandButton1_Click()
Dim Stroka As String, num As Integer
Stroka = InputBox("Введите последовательность цифр", "Последовательность цифр", "0,1,2,3,4,5,6,7,8,9")
arrStroka = Split(Stroka, ",")
num = Val(InputBox("Введите номер", "Номер цифры", "5"))
If Int(num) - 1 < 0 Or Int(num) - 1 > UBound(arrStroka) Then
    MsgBox "Неправильно набран номер", vbInformation, "Сообщение"
    Exit Sub
End If
MsgBox arrStroka(num - 1)
End Sub

                        