Crear una macro en vba excel para guardar en una celda el nombre de la imagen capturada.

-Necesito crear una macro que me guarde el nombre de una imagen capturada en una celda.
-La macro que tengo guarda en la celda de la siguiente forma:
C:\Users\VIA NORTE\Desktop\INVENTARIO 12\imágenes\1008.jpg
-Lo que yo necesito que guarde es solamente: 1008
-El código que tengo es el siguiente:

Option Explicit
Dim ArchivoIMG As String
Private Sub cmdImagenArticulo_Click()
On Error Resume Next
        ArchivoIMG = Application.GetOpenFilename("Im?genes jpg,*.jpg,Im?genes bmp,*.bmp", 0, "Seleccionar Im?gen para Registro de Empleados")
        ImagenArticulo.Picture = LoadPicture("")
        ImagenArticulo.Picture = LoadPicture(ArchivoIMG)
End Sub