On Error Resume Next
Dim filename As String
CommonDialog1.filename = ""
CommonDialog1.Filter = "JPEG files (*.jpg) | *.jpg"
filename = CommonDialog1.filename
CommonDialog1.ShowOpen