Script für WIN 7 um den explorer zu öffnen

Hallo Zusammen,

habe eine script unter XP wie folgt, den ich an WIN 7 anpassen muss.

Sub cmd_openOBMAAufn3_Click()
Set oShell = Item.Application.CreateObject(\"WScript.Shell\")

strOBPath = Item.UserProperties.Find(\"MAtextOBPathAufn3\").Value
Item.GetInspector.ModifiedFormPages(\"MANGEL/VERSICHERUNGSF - Aufnahme\").Controls(\"img_OBMAAufn3\").Picture = LoadPicture(strOBPAth)
\'Öffene Bilddatei mit Windows Bild- und Faxanzeige
oShell.run \"rundll32.exe %systemroot%\\system32\\shimgvw.dll,ImageView_Fullscreen \" & strOBPath
End Sub

Sub cmd_saveOBMAAufn3_Click()
Set oUAC = Item.Application.CreateObject(\"UserAccounts.CommonDialog\")
oUAC.Filter = \"Alle Bilddateien (*.jpg,*.gif,*.bmp)|*.jpg;*.gif;*.bmp\"
oUAC.ShowOpen


Vielen Dank im voraus

Uniwop