Moin!
Hier mal vernünftig formatiert:
Sub Test() Dim Dat As Date Dat = DateSerial(2018, 5, 31) Call RPP(Dat) End Sub Sub RPP(x As Date) MsgBox "Der Parameter hat den Wert: " & x End Sub
Gruß Ralf