Select Case txtbn.Text
    Case "HarryKim"
        If Val(txt_pin.Text) = 2858 Then
            frmhaupt.Show
        Else
            MsgBox "Ihre Eingabe ist fehlerhaft.", vbCritical, "Fehler" & "" & _
              "User oder Passwort falsch!" 
        End If
    Case "Oschy"
        If Val(txt_pin.Text) = 7989 Then
            frmhaupt.Show
        Else
            MsgBox "Ihre Eingabe ist fehlerhaft.", vbCritical, "Fehler" & "" & _
              "User oder Passwort falsch!" 
        End If
 
    Case "Tunfish"
        If Val(txt_pin.Text) = 1323Then
            frmhaupt.Show
        Else
            MsgBox "Ihre Eingabe ist fehlerhaft.", vbCritical, "Fehler" & "" & _
              "User oder Passwort falsch!" 
        End If
    Case Else
        MsgBox "Unbekannter Benutzer!"
End Select

Bye

illuminator
(Programmers don't die, they GOSUB without RETURN...)