I am working on a project that opens xml files into a TreeView window. I am able to import xml files into my window by using the following code...

Private Sub Form_Load()
Dim sFile As String
sFile = App.Path
If Right(sFile, 1) <> "\" Then sFile = sFile & "\"
sFile = sFile & "menu.xml"
XMLOnTreeView TreeView1, sFile
End Sub

The problem I'm having is that I need the name of the xml file to be a variable so that I can use an OpenFile from my menu to import any xml file that the user would like. Any assistance would be very appreciated. thanks,