So, here it is. We have a directory with our application.
The program consists of a form with a button (Command1):
The code for the form is:
Dim myDir As String
Private Sub Command1_Click()
myDir = App.Path & "\the longest folder name in XP history"
Run the program, click the button and you should see your new folder in your application folder. Done.