Laufzeitfehler 13

Wenn ich in meinem Sheet den Button anklicke, bekomme ich immer die Fehlermeldung "Laufzeitfehler 13, Typen unverträglich"
Da die Anweisung aber extrem einfach ist, verstehe ich den Fehler nicht.
Hier mein Code:

Private Sub Dateneingeben_Click()
' Aufruf der Maske:
UserForm3.Show
End Sub

Kann mir jemand helfen?
Gruß
Udo