juchhu, das hat funktioniert.
Tausend Dank.

So ist der Aufruf jetzt:

VAR2 = "CALL QSYS.QCMDEXC('" & VAR1 & "', " & Replace(Format(Len(VAR1), "0000000000.00000"), ",", ".") & ")"

Danke.
Gruss
Tobias