No se abre cuadro dialogo para elegir foto

   Buenos dias.
Sigo con mis problemas de migracion de access 2003 a 2019.
Tengo un formulario de articulos con un icono que al pulsar me abria el cuadro de dialogo de windows para seleccionar la imagen de un articulo y traerme la ruta para mostrarla en el formulario, pero ahora resulta no me abre el cuadro de dialogo.

Muestro el codigo que tengo puesto:Private Sub Comando4_Click()
' ------------------------
' ICONO QUE AL PULSAR
' SALE EL EXPLORADOR PARA
' BUSCAR LA IMAGEN
' ------------------------
' iUbicacion = ruta    -> cuadro de texto que aloja la ruta
' Imagen3    = cfoto   -> cuadro de imagen en la que se ve la imagen
' Comando4   = icono camara de fotos -> abre el explorador para buscar la imagen

Dim s As String
    ruta.SetFocus
    s = OpenCommDlg()
    If s <> "" Then
        ruta = s
        ruta_AfterUpdate
    End If
End Sub

Este es el móculo

'-------------------------------------------------------
' Open Common Dialog Function
'-------------------------------------------------------
Function OpenCommDlg()
Dim Message$, Filter$, FileName$, FileTitle$, DefExt$
Dim Title$, szCurDir$, APIResults&
'
Filter$ = "Imágenes (GIF,PCX,BMP,JPG,JPEG,PNG)" & Chr$(0) & "*.BMP;*.GIF;*.PCX;*.JPG;*.JPEG;*.PNG;" & Chr$(0) & _
        "Todos los ficheros (*.*)" & Chr(0) & "*.*;" & Chr(0)
Filter$ = Filter$ & Chr$(0)
'
FileName$ = Chr$(0) & Space$(255) & Chr$(0)
FileTitle$ = Space$(255) & Chr$(0)
'* Give the dialog a caption title.
Title$ = "Seleccionar imagen" & Chr$(0)
'
DefExt$ = "BMP" & Chr$(0)   ' extensión por defecto
szCurDir$ = CurDir$ & Chr$(0)  ' directorio por defecto, el actual
'* Set up the data structure before you call the GetOpenFileName
OPENFILENAME.lStructSize = Len(OPENFILENAME)
'If the OpenFile Dialog box is linked to a form use this line.
'It will pass the forms window handle.
OPENFILENAME.hwndOwner = Screen.ActiveForm.hwnd
'If the OpenFile Dialog box is not linked to any form use this line.
'It will pass a null pointer.
'OPENFILENAME.hwndOwner = 0&
OPENFILENAME.lpstrFilter = Filter$
OPENFILENAME.nFilterIndex = 1
OPENFILENAME.lpstrFile = FileName$
OPENFILENAME.nMaxFile = Len(FileName$)
OPENFILENAME.lpstrFileTitle = FileTitle$
OPENFILENAME.nMaxFileTitle = Len(FileTitle$)
OPENFILENAME.lpstrTitle = Title$
OPENFILENAME.flags = OFN_FILEMUSTEXIST Or OFN_READONLY Or OFN_PATHMUSTEXIST Or OFN_FILEMUSTEXIST
OPENFILENAME.lpstrDefExt = DefExt$
OPENFILENAME.hInstance = 0
OPENFILENAME.lpstrCustomFilter = String(255, 0)
OPENFILENAME.nMaxCustFilter = 255
OPENFILENAME.lpstrInitialDir = szCurDir$
OPENFILENAME.nFileOffset = 0
OPENFILENAME.nFileExtension = 0
OPENFILENAME.lCustData = 0
OPENFILENAME.lpfnHook = 0
OPENFILENAME.lpTemplateName = 0
If apiGetOpenFileName(OPENFILENAME) <> 0 Then
    OpenCommDlg = Left$(OPENFILENAME.lpstrFile, InStr(OPENFILENAME.lpstrFile, Chr$(0)) - 1)
Else
    OpenCommDlg = ""
End If
End Function

Gracias por anticipado