Контроль введенных данных в InputBox - VB

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

Пишу программу в бейсике. Мне нужно чтобы при вводе правильного ответа выводилось "Верно", а неправильного "Неверно". А у меня ВСЕГДА программа выводит что ответ верный... Где ошибка?

Private Sub Command1_Click()
B = Val(InputBox("Введи ответ"))
A = Земля
If A = B Then Label4.Caption = "Верно"
If A <> B Then Label4.Caption = "Неверно"
End Sub

Решение задачи: «Контроль введенных данных в InputBox»

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

                            B = InputBox("Введи ответ")
A = "Земля"
If A = B Then
Label4.Caption = "Верно"
Else
 Label4.Caption = "Неверно"
End If
                        