Hacer llamado a imagenes jpg o bmp

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Address = "$A$11" Then Exit Sub
Application.ScreenUpdating = False
Dim De_donde As String
De_donde = "C:\fotos\" & [a11] & ".jpg"
With Me.Image1
If Dir(De_donde) = "" Then Me.Image1.Visible = False: Exit Sub
.Picture = LoadPicture(De_donde)
.PictureSizeMode = fmPictureSizeModeZoom
.Visible = True
End With
End Sub

Hola tengo un inconveniente la macromostrada anteriormente funciona
perfectamente,pero tengo un probleita, en la carpeta fotos hay
imagenes con el formato .bmp (mapas de bit) el cual no llama ya que
solo hace el llamado a imagenes con la extension .jpg que puedo hacer
para que llame cual sea los formatos ya sea .jpg o .bmp

Gracias por su ayuda de antemano