[VB] CommonDialog

On Error GoTo Canceled

With Me.CommonDialog
.FileName = ""
.Filter = "Pictures (*.bmp;*.jpg)|*.bmp;*.jpg"
.ShowOpen
'Query User
'Has file ( file = .filename)
End With
Canceled: