Run Time Error 424

[Diogo C. Laass 0]

Ola a todos...

Eu estou trabalhando em um programa de gestão de produtos, so que estou iniciando ainda no VB6 então não consigo resolver esse erro...

Private Sub Form_Load()
    login = InputBox("Digite seu nome", "Login")
    If login.Text = "diogo" Then
        senha = InputBox("Digite sua senha", "Login")
        If senha.Text = "123" Then
            MsgBox "Seja bem vindo Sr." + login, "Bem Vindo", 64
        Else
            MsgBox "Senha Errada!", "Erro", 163
            senha = InputBox("Digite sua senha", "Login")
        End If
    Else
        MsgBox "Login errado!", 64, "Erro"
        login = InputBox("Digite seu nome", "Login")
    End If
End Sub

Acusa na linha 2(login = InputBox("Digite seu nome", "Login"))

[Claudio Neto 3]

A linha está correta.

 

login é uma variável declarada?

Qual a descrição do erro?