Con formatear me refiero a ponerlo más legible:
Private Sub Command1_Click()
    With CommonDialog1
        .DialogTitle = "Seleccionar imagen "
        .Filter = "JPG|*.JPG|BMP|*.bmp|GIF|*.GIF|Todos los archivos|*.*"
        .ShowOpen
        If .FileName = "" Then
            Exit Sub
        Else
            Image1 = LoadPicture(.FileName)
        End If
    End With
 End Sub
 
Estoy probando lo que me diste antes por todos lados y no lo consigo hacer funcionar
Entonces es que has probado poco 

 porque es tan sencillo como:
Private Sub Command1_Click()
    With CommonDialog1
        .DialogTitle = "Seleccionar imagen "
        .Filter = "JPG|*.JPG|BMP|*.bmp|GIF|*.GIF|Todos los archivos|*.*"
        .ShowOpen
        If .FileName = "" Then
            Exit Sub
        Else
            Image1 = LoadPicture(.FileName)
        End If
        List1.AddItem .FileName
    End With
 End Sub
 
Siendo 
List1 un listbox ya creado, por supuesto.