Forms VisualBasic Script

Sub DirDemo2()
    MsgBox Dir
End Sub