Lad die Commondialog Controls und füg das beim browse Button ein und nenn es dlg :

With dlg
.Filter = "Executbales Files (*exe) | *.exe"
.DialogTitle = "Open File to Crypt"
.ShowOpen
End With