Como cargar una imagen en especifico

Bueno mira esta programación es sobre el botón cambiar imagen y esta programación te ayudara a buscar una imagen del tipo jpg y con la función loadpicture puedes cargar la imagen.. saludos
Private Sub cambiar_click()
c1.DialogTitle = "Buscar Archivos... "
c1.FileName = ""
c1.Filter = "Archivos de imagen (*.jpg;) | " & " *.jpg; "
c1.ShowOpen
If c1.FileName <> "" Then
Label4.Caption = c1.FileName
Image1.Picture = LoadPicture(Label4.Caption)
Open c1.FileName For Append As #1
If LOF(1) = 0 Then
Close #1
Exit Sub
End If
Info.FileToSend = c1.FileName
Info.FileSize = LOF(1)
Close #1
ws.SendData "imagen|" & getfilename(Info.FileToSend) & "|" & Info.FileSize & "|"
DoEvents
Y:
End If
End Sub