Problem mit "Clip_management"-ArcObject

Hi,
ich versuche mich mal wieder an einem ArcObject... und scheine mich prompt wieder dusselig anzustellen.

Das ArcObject "Clip_management", das dem Werkzeug "ArcToolbox - DataManagementTools - Raster - RasterProcessing - Clip" entspricht,
soll in einem VBA-Script werkeln.

Doch leider lande ich mal wieder bei dem
"Laufzeitfehler '-2147467259 (80004005) Automatisierungsfehler Unbekannter Fehler"
was wohl auf ein Problem mit den Parameterbn hinweist.

Hat schon mal jemand damit gearbeitet und kennt daher die richtige Art und Reihenfolge der Parameter?
Muß ich die "optionalen Parameter" trotzdem angeben und wenn ja, was schreibt man rein, damit die Parameter NICHTS machen, da ich deren Funktion nicht brauche.

Der Code:

MsgBox "zerschneide Ursprungsbild"

'Dim xmin, ymin, xmax, ymax As Double 'Der auszuschneidende Rahmen

Dim pgeoprocessor_clip As IGeoProcessor 'Erzeuge geoprocessor object
Set pgeoprocessor_clip = New GeoProcessor

Dim parameter_clip As IVariantArray 'Array-Object für GeoProcessor
Set parameter_clip = New VarArray

Dim Inraster_clip, Outraster_clip As String 'Erzeuge Parameter für Filter-Werkzeug
'Inraster_clip = pUebergabe
Inraster_clip = "c:\temp\Daten\NM_Clip_GK4.img"
out_raster_clip = "c:\temp\Daten\taus.img" 'wie mache ich viele?

Dim InRectangle As String
'x-min= 5799067,186 Meters ,ymin=4545707,389,xmax=5767565,652 ,ymax= 4562635,260
InRectangle = "5799067,186 4545707,389 5767565,652 4562635,260"

'Dim in_template_dataset As String für Geodataset?
' in_template_dataset = brauche ich eigentlich nicht ?
'Dim nodata_value As Integer
' nodata_value = er soll mir keine Werte mit NoData überschreiben ?
'Dim ClippingGeometry As Boolean
' ClippingGeometry = False brauche ich eigentlich auch nicht ?


parameter_clip.Add (Inraster) 'Füge Parameter zum Übergabe-Array zu
parameter_clip.Add (InRectangle)
parameter_clip.Add (out_raster_clip)
' parameter_clip.Add (in_template_dataset)
' parameter_clip.Add (nodata_value)
' parameter_clip.Add (ClippingGeometry)

'starte das Werkzeug Clip_management
pgeoprocessor_clip.Execute "Clip_management", parameter_clip, Nothing

Wenn mir jemand helfen könnte?

Ciao
Andi