hvorfor for jeg en if then goto til at virke i vbs

mit script ser sådan ud men jeg kan ikke får den til at gå til det jeg gerne vil have den til det virker fint i vb men ikke når man laver det il VBS hvordan løser jeg dette problem ?????
----------kode start
Private Sub Command1_Click()

Dim fs, f, s, fs1, f1, s1, filespec1, filespec, fso, f2

filespec1 = ("\\server\Auktion\Databaser\frontend\hmfrontend.mdb")
  Set fs1 = CreateObject("Scripting.FileSystemObject")
    filespec = ("c:\databaser\hmfrontend.mdb")
  Set fs = CreateObject("Scripting.FileSystemObject")

If fs.FileExists(filespec) Then GoTo t

Set fso = CreateObject("Scripting.FileSystemObject")
  Set f2 = fso.GetFile(filespec1)
  f2.Copy (filespec)
t:
  If fs1.FileExists(filespec1) Then GoTo tt

Set WshShell = CreateObject("WScript.Shell")
WshShell.Run filespec
End

tt:
bla bla

--------------kode slut