Se vuoi vengo la direttamente.

Private Sub Cmdexport_Click()
ShellWait "FSHTOOL " & File1