--> kein Error, VBA-Programm wird ausgeführt.

Funktioniert dein CLP denn beim Aufruf auf der AS/400 ?

-->Getestet - einwandfrei -->
auf der AS400 per: CALL THYS00CWEB

Verwendest du auf der AS/400 den selben User wie per ODBC ?

--> ja (auf der AS400, WEB1 und ODBC alle gleich)

Ist der User auf dem Server WEB1 mit dem selben Kennwort als lokaler User registriert ?

-->Ja

es kann nur noch an diesen Befehlen liegen:

CallCmd = "{{CALL PGM(TRUMPFH/THYS00CTTR)}}"
'cnn.Execute("{{CALL QSYS.QCMDEXC PARM('" & CallCmd & "', " & Format(Len(CallCmd), "0000000000.00000") & ")}}")
cnn.Execute(CallCmd)
cnn.Close()