VB6 mit Windows XP und Word 2003

Guten Morgen,
ich bin zum ersten Mal dabei und bitte um Nachsicht, falls etwas nicht ganz i.O. ist.
Zum Problem:
Ich habe ein Programm in VB6 geschrieben, das weltweit genutzt werden soll.
In diesem Programm sollen Ergebnissseiten (Graphiken) in Word gespeichert werden. Geschrieben ist es für Windows 2000/NT.
Hat bis jetzt auch funktioniert, bis XP kam.
Hier ist der Code, der in 2000/NT läuft.

 With .ActiveDocument
 With .PageSetup
 .Orientation = 0
 .TopMargin = 0.5
 .BottomMargin = 0.5
 .LeftMargin = 0.5
 .RightMargin = 0.5
 End With
 End With
 With .Selection
 .InsertBreak Type:=wdPageBreak
 .PasteSpecial
 With .ShapeRange ! Fehler: Ausdruck in Kontext nicht definiert!
 .Height = 9000 ! Fehlermeldung: Objekt erforderlich!
 .Width = 570
 .IncrementTop 10
 .IncrementLeft 15
 End With
 .MoveDown Unit:=wdLine, Count:=1
 End With

Bei XP habe ich die oben angegebenen Fehlermeldungen.
Noch etlichen Versuchen bin ich mit meinem Latein am Ende. Vielleicht kann mir jemand von Euch helfen?!

Vielen Dank
Georg

[MOD] Pre-Tags eingefügt für bessere Lesbarkeit.