If you want to load it when you press a CommandButton, use this code.

Code:
Private Sub Command2_Click()

CommonDialog1.filename = ""
CommonDialog1.Filter = "|*.gufgfdgd" ' our weird extention
CommonDialog1.ShowOpen

End Sub