... das mit dem Verdoppeln verstehe ich nicht so ganz bzw wie ich das in den Befehl einbauen muss:

Alt:
cnn.Execute ("CALL QSYS.QCMDEXC ('" & CallCmd & "', " & Format(Len(CallCmd), "0000000000.00000") & ")")

Wo und welche muss ich verdoppeln?
Stehe auf dem Schlauch? Alle verdoppeln und bei welchem CallCmd baue ich das Replace ein?