importing xml file into TreeView window

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,

Moved From The CodeBank (which is for sharing code rather than asking questions :) )