Login com Erros

        If TextBoxUsuario.Text = "" Or TextBoxSenha.Text = "" Then
            MsgBox("Senha ou Usuario vazios, Verifique-os e tente novamente")
        Else
            If TextBoxUsuario.Text = "Killuado" And TextBoxSenha.Text = "Killua" Or TextBoxUsuario.Text = "Crazy" And TextBoxSenha.Text = "Senha" Then
                MsgBox("Bem-Vindo " + TextBoxUsuario.Text + " Ao Login Falso KSKSKS PEGUEI SUA SENHA")
            Else
                MsgBox("Olá " + TextBoxUsuario.Text + " Sua senha ou usuario esta invalidos, tente novamente")
            End If
        End If