[RESOLVED] How do you on a command click shell and run a .vbs file?

[newprogram]

I tried

Dim ReturnValue
ReturnValue = Shell("C:\Documents and Settings\Administrator\Desktop\dial2.VBS", 1) ' Run Calculator.
AppActivate ReturnValue

and this to

Shell("C:\Documents and Settings\Administrator\Desktop\dial2.VBS")

and this

Shell "C:\Documents and Settings\Administrator\Desktop\dial2.VBS"