File Path VisualBasic Script

Sub PathSeparator()
    MsgBox Application.PathSeparator
End Sub