Inputbox validation i can make it to work..

Private Sub Entra_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Entra.Click
Dim message As String
'validate the login
If txtuser.text = "david" And txtpass.text = "12345" Then
message = InputBox("Bem-Vindo Administrador, deseja adicionar novo User? _ Se sim introduza a sua password! ", "Admin", "Pass/N")
If message = txtpass.Text Then
'if the user enter 12345 then
Form3.Show()
Me.Close()
Else
message = ("N")
Form2.Show()
Me.Close()
If message = ("") Then
Call MsgBox("Caracter inválido, por favor tente outra vez!", vbCritical, "Erro")
End If
End If
End If
End Sub