Public Function TestFunktion(Optional Param1 As Variant, Optional Param2 As _
  Variant)
   If IsMissing(Param1) And IsMissing(Param2) Then
      MsgBox "ERROR"
      Exit Function
   End If
 
   ' Hier normal weiter ....
End Function