Private Sub Command1_Click()
Dim sFile As String
 
On Error Resume Next
 
With CommonDialog1
    .CancelError = True
    .ShowOpen
    sFile = .FileName
End With
 
If Err = 0 Then
    Picture1.Picture = LoadPicture(sFile)
    Debug.Print sFile
End If
 
End Sub