Find fejlen

Sub test()
Dim navn As String
Dim password As String
navn = InputBox(prompt:=\"Skriv dit Brugernavn\")
If UCase(navn) = \"Aq\" Then
MsgBox prompt:=\"Brugernavn accepteret\"
Else
MsgBox prompt:=\"Brugernavn ikke accepteret\"
password = InputBox(prompt:=\"Skriv dit password\")
If UCase(password) = \"Aq\" Then
MsgBox prompt:=\"password accepteret\"
Else
MsgBox prompt:=\"password ikke accepteret\"


End Sub

du har lavet en IF sætning, men glemt at afslutte den, dvs. der mangler en END IF i koden

Sub test()
Dim navn As String
Dim password As String
navn = InputBox(prompt:=\"Skriv dit Brugernavn\")
If UCase(navn) = \"Aq\" Then
MsgBox prompt:=\"Brugernavn accepteret\"
Else
MsgBox prompt:=\"Brugernavn ikke accepteret\"
password = InputBox(prompt:=\"Skriv dit password\")
END IF

If UCase(password) = \"Aq\" Then
MsgBox prompt:=\"password accepteret\"
Else
MsgBox prompt:=\"password ikke accepteret\"
END IF

End Sub

hov... flyt lige det nederste END IF en linie op :o))

nu virker det med bruger navn men man bliver ikke spurgt om passwordet

Sub test()
Dim navn As String
Dim password As String
navn = InputBox(prompt:=\"Skriv dit Brugernavn\")
If UCase(navn) = \"Aq\" Then
MsgBox prompt:=\"Brugernavn accepteret\"
Else
MsgBox prompt:=\"Brugernavn ikke accepteret\"
END IF

password = InputBox(prompt:=\"Skriv dit password\")
If UCase(password) = \"Aq\" Then
MsgBox prompt:=\"password accepteret\"
Else
MsgBox prompt:=\"password ikke accepteret\"
END IF

End Sub

som sagt, flyt det sidste END IF en linie op :o)

det har jeg gjort

nåå...men tak for så meget besvær for skide 5 point. :^)

:o)
Det er da rart at kunne hjælpe uanset om der er mange point, få point eller slet ingen point.
Det sker jo også at man selv har brug for hjælp!

Held og lykke med din fremtid i VB, det er et ganske rart sprog at arbejde med.
Du kan i øvrigt få meget hjælp i den online help der er i VB (F1), og på MSDN (msdn.microsoft.com)