Poner una imagen por medio de una macro

Hola que tal tengo un problema con mi programa quiero insertar una imagen en un control de imagen pero lo quiero hacer por medio de una macro asignada a un botón de comando y no lo he podido hacer lo he hecho de mil formas y no he podido en estos momentos tengo este código

Sub buscarimagen()
Dim nombre As String
nombre = InputBox("Nombre de la Codigo Bidimensional", "Facturación CBB")
If nombre = vbNullString Then
Exit Sub
Else
Image1.Picture ("C:\Documents and Settings\alejandro\Mis documentos\Mis imágenes\" & nombre & ".BMP")
End If
End Sub

no se que estoy haciendo mal alguien me podría ayudar