With MyProcess
            .StartInfo.FileName = SchwestWkzFullName
 
            Try
                .Start()
 
            Catch w As System.ComponentModel.Win32Exception
 
                If w.NativeErrorCode = 1155 Then
                    .StartInfo.FileName = "RUNDLL32.EXE"
                    .StartInfo.Arguments = "shell32.dll,OpenAs_RunDLL " & _
                      SchwestWkzFullName
                    .Start()
                End If
            End Try
        End With

Grüße Andi