InputBox выдает "Несоответствие типов" - VB

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

Я ток начинающий и пытаюсь по урокам что-то учить вникать) И вот задание сделать кроссворд и когда я пишу в диалог (ImputBox) любое слово он выдает ошибку ... В процедуре тема такая Я пишу если в imputBox Введено Слово "Драккор" то в Text2 text3 text 4 вводиться по букве , в противном случает вводиться то же самое но видать где-то я что -то пропустил можете подсказать что? или как лучше Программный код написать?

Решение задачи: «InputBox выдает "Несоответствие типов"»

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

                            Private Sub Command3_Click()
    Dim slovo As String
    slovo = InputBox("Введите слово", "Ввод слова", "Драккар")
    If slovo = "Драккар" Then
        Text2.Text = "Д"
        Text3.Text = "р"
        Text4.Text = "а"
        Text6.Text = "к"
        Text7.Text = "а"
        Text8.Text = "р"
    Else
        Text2.Text = "д"
        Text3.Text = "р"
        Text4.Text = "а"
        Text6.Text = "к"
        Text7.Text = "а"
        Text8.Text = "р"
    End If
End Sub
                        