This example displays the complete path of the Startup folder.
MsgBox Application.StartupPath
This example enables the user to change the path of the Startup folder.
x = MsgBox("Do you want to change the startup path?", vbYesNo, _
"Current path = " & Application.StartupPath)
If x = vbYes Then
newStartup = InputBox("Type a startup path")
Application.StartupPath = newStartup
End If