File Path VisualBasic Script

Sub strDemo20()
   Debug.Print CurDir()
End Sub