Программа по тестированию для замены слов - Visual Basic .NET

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

Доброго времение суток. Я далек от программирования, но недавно начал изучать финский язык и решил создать для себя что то вроде программки для тестирования, которая еще и поможет запомнить слова. Помогите решить пару проблем. Во-первых, когда я прописываю "stop" цикл конечно же останавливается, но при нажатии на кнопку больше не стартует. Более того, у меня много таких кнопок (в каждой свой массив тематических слов), и после остановки 1 цикла, по нажатию кнопки незапускается ниодин. Т.е какждый раз нужно перезапускать программу =( Во-вторых, как сделать так что бы при нажатии кнопки "отмена" в inputbox'e останавливался цикл ? Очень нужна Ваша помощь ! Спасибо.

Public Class Form1
    Dim rand As Byte
    Dim rus(20) As String
    Dim fin(20) As String
    Dim vopros As String
    Dim otvet As String
    Dim prav As String
    Dim neprav As String
    Dim ruscif(44) As String
    Dim fincif(44) As String
    Dim ruscvet(17) As String
    Dim fincvet(17) As String
    Private Sub start_Click(sender As Object, e As EventArgs) Handles start.Click
        rus = {"я", "ты", "он", "мы", "вы", "они", "этот, эта, это", "тот, та, то", "здесь, тут", "там", "кто", "что", "где", "когда", "как", "не", "всё", "много", "несколько", "немного, мало", "другой, иной"}
        fin = {"minГ¤", "sinГ¤", "hГ¤n se", "me", "te", "he ne", "tГ¤mГ¤", "tuo", "tГ¤ssГ¤", "siellГ¤", "kuka ken", "mikГ¤ mitГ¤", "missГ¤", "milloin kun", "miten kuinka", "ei", "kaikki", "monet paljon", "jotkut", "muutama", "muu"}
        While otvet <> "stop"
            rand = Int(21 * Rnd())
            vop.Text = "Введите перевод слова " + rus(rand)
            otvet = InputBox("Для выхода введите 'stop'")
            If otvet <> fin(rand) Then
                otv.Text = "Не правильно ! А правильный ответ был бы: " + fin(rand)
                neprav = neprav + 1
                nepravilnie.Text = ("Неправильных ответов: " + neprav)
                otv.BackColor = Color.Red
            Else
                otv.Text = "Это правильный ответ ! Продолжай в том же духе !"
                prav = prav + 1
                pravilnie.Text = ("Правильных ответов: " + prav)
                otv.BackColor = Color.Green
            End If
        End While
    End Sub
    Private Sub cifri_Click(sender As Object, e As EventArgs) Handles cifri.Click
        ruscif = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "30", "40", "50", "60", "70", "80", "90", "100", "200", "1000", "первый", "второй", "третий", "четвертый", "пятый", "шестой", "седьмой", "восьмой", "девятый", "десятый", "цифра", "плюс", "минус", "примерно"}
        fincif = {"nolla", "yksi", "kaksi", "kolme", "neljГ¤", "viisi", "kuusi", "seitsemГ¤n", "kahdeksan", "yhdeksГ¤n", "kymmenen", "yksitoista", "kaksitoista", "kolmetoista", "neljГ¤toista", "viisitoista", "kuusitoista", "seitsemГ¤ntoista", "kahdeksantoista", "yhdeksГ¤ntoista", "kaksikymmentГ¤", "kolmekymmentГ¤", "neljГ¤kymmentГ¤", "viisikymmentГ¤", "kuusikymmentГ¤", "seitsemГ¤nkymmentГ¤", "kahdeksankymmentГ¤", "yhdeksГ¤nkymmentГ¤", "sata", "kaksisataa", "tuhat", "ensimmГ¤inen", "toinen", "kolmas", "neljГ¤s", "viides", "kuudes", "seitsemГ¤s", "kahdeksas", "yhdeksГ¤s", "kymmenes", "numero", "ynnГ¤", "miinus", "noin"}
        While otvet <> "stop"
            rand = Int(45 * Rnd())
            vop.Text = "Введите перевод слова " + ruscif(rand)
            otvet = InputBox("Для выхода введите 'stop'")
            If otvet <> fincif(rand) Then
                otv.Text = "Не правильно ! А правильный ответ был бы: " + fincif(rand)
                neprav = neprav + 1
                nepravilnie.Text = "Неправильных ответов: " + neprav
                otv.BackColor = Color.Red
            Else
                otv.Text = "Это правильный ответ ! Продолжай в том же духе !"
                prav = prav + 1
                pravilnie.Text = "Правильных ответов: " + prav
                otv.BackColor = Color.Green
            End If
        End While
    End Sub
    Private Sub cveta_Click(sender As Object, e As EventArgs) Handles cveta.Click
        ruscvet = {"красный", "оранжевый", "желтый", "зеленый", "голубой", "синий", "фиолетовый", "белый", "черный", "коричневый", "пестрый", "лиловый", "сиреневый", "серый", "бежевый", "розовый", "темный", "светлый"}
        fincvet = {"punainen", "oranssi", "keltainen", "vihreГ¤", "vaaleansininen", "sininen", "violetti", "valkoinen", "musta", "ruskea", "kirjava", "lila", "syreeni", "harmaa", "beige", "vaaleanpunainen", "tumma", "valoisa"}
        While otvet <> "stop"
            rand = Int(18 * Rnd())
            vop.Text = "Введите перевод слова " + ruscvet(rand)
            otvet = InputBox("Для выхода введите 'stop'")
            If otvet <> fincvet(rand) Then
                otv.Text = "Не правильно ! А правильный ответ был бы: " + fincvet(rand)
                neprav = neprav + 1
                nepravilnie.Text = "Неправильных ответов: " + neprav
                otv.BackColor = Color.Red
            Else
                otv.Text = "Это правильный ответ ! Продолжай в том же духе !"
                prav = prav + 1
                pravilnie.Text = "Правильных ответов: " + prav
                otv.BackColor = Color.Green
            End If
 
        End While
    End Sub
End Class

Решение задачи: «Программа по тестированию для замены слов»

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

                            Dim wrd() As String = {"ddddd", "aaaaa", "rrrrr", "55555", "uuuuuu", "88888", "9999"}
Dim tstW As String = "55555"
If wrd.Contains(tstW) Then
    MsgBox("Индекс слова в массиве: " & Array.IndexOf(wrd, tstW).ToString)
Else
    MsgBox("Слова нет в массиве!")
End If
                        