Ошибка в коде VB 5.0

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

Пишу программу,которая должна иметь регистрацию в виде InputBox.Если вводится пробел (" ") или вообще ничего не вводится,то при нажатии кнопки "Ok" появляется MsgBox с надписью "Пройдите регистрацию.Нажмите Ок",а если введена любая буква/слова,то появляется другое MsgBox "Вы успешно прошли регистрацию.Нажмите Ок". Но в коде моем какая-то недоработка или ошибка,он не хочет компилировать проект

Private Sub Command1_Click()
InputBox "Введите имя и фамилию", "Регистрация"
Me.Hide
Dim Login As String
Login = InputBox("Введите имя и фамилию", "Регистрация")
If Login = InputBox("Введите имя и фамилию", "Регистрация") Then PushButton = MsgBox("InputBox.Вы успешно прошли регистрацию.Нажмите Ок",vbInformation + vbOKOnly, "Конец регистрации")
ElseIf Login = " " Then PushButton = MsgBox("Пройдите регистрацию.Нажмите Ок", vbInformation + vbOKOnly, "Будьте внимательны")
End If
End If
End Sub

Помогите мне с ним,пожалуйста!

Решение задачи: «Ошибка в коде VB 5.0»

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

                            Private Sub Command1_Click()
    Me.Hide
    Dim Login As String
    Login = InputBox("Введите имя и фамилию", "Регистрация")
    
    If Login = " " Or Login = "" Then
          MsgBox "Пройдите регистрацию.Нажмите Ок", vbInformation + vbOKOnly, "Будьте внимательны"
    Else
          MsgBox "Вы успешно прошли регистрацию.Нажмите Ок", vbInformation + vbOKOnly, "Конец регистрации"
    End If
    
    Me.Show
End Sub
                        