Fehlerfall reagiert nicht

Private Sub Workbook_Open()
Dim objSh As Object
Dim pw As String
Dim wks As Worksheet
Dim verfall As Date
Sheets("Startseite").Select
verfall = CDate("01.08.2012")
If Date  "Startseite" Then objSh.Visible = xlSheetVisible
Next
Sheets("Startseite").Select
pw = fncPassword("Ihre Lizenz ist abgelaufen!" & Chr(10) & "Geben sie das  _
Administratorpasswort eingeben", "Passwortabfrage")
If pw = "Test" Then
Me.Sheets("Startseite").Visible = xlSheetVisible
For Each objSh In Me.Sheets
If objSh.Name  "Startseite" Then objSh.Visible = xlSheetVisible
Sheets("Startseite").Select
If pw  "Test" Then
MsgBox "Das eingegebene Passwort ist falsch!"
End If
Next
End If
End If
End Sub