Paramter übergeben, Code funktioniert nicht unter Windows 10

Option Explicit

Declare PtrSafe Function GetCommandLine Lib "kernel32" Alias "GetCommandLineW" () As Long  
Declare PtrSafe Function lstrlenW Lib "kernel32" (ByVal lpString As Long) As Long  
Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (MyDest As Any, MySource As Any, ByVal MySize As Long)  

Function CmdToSTr(Cmd As Long) As String
Dim Buffer() As Byte
Dim StrLen As Long

If Cmd Then
StrLen = lstrlenW(Cmd) * 2
If StrLen Then
ReDim Buffer(0 To (StrLen - 1)) As Byte
CopyMemory Buffer(0), ByVal Cmd, StrLen
CmdToSTr = Buffer
End If
End If
End Function

Private Sub Workbook_Open()
Dim CmdRaw As Long
Dim CmdLine As String
CmdRaw = GetCommandLine
CmdLine = CmdToSTr(CmdRaw)
If InStr(1, CmdLine, "/e/") > 0 Then Sheets("Projekt-Status").[D4] = Split(CmdLine, "/e/")(1)  
End Sub


Private Sub Workbook_POpen()
Dim CmdRaw As Long
Dim CmdLine As String
Dim myParam As String

CmdRaw = GetCommandLine
CmdLine = CmdToSTr(CmdRaw)

myParam = Right(CmdLine, 6)

Selection.AutoFilter Field:=1, Criteria1:=myParam

End Sub