Access - Sacar imagen de una tabla a fichero

Public Sub ExtraerImagenDeTabla()

    Dim rs As DAO.Recordset

    Dim fs As Object

    Dim strRutaArchivo As String

    Dim strNombreArchivo As String

    'Defina la ruta y el nombre del archivo donde se guardará la imagen

    strRutaArchivo = "C:\Imágenes\"

    strNombreArchivo = "ImagenExtraída.jpg"

    'Defina la consulta para obtener la imagen de la tabla

    Set rs = CurrentDb.OpenRecordset("SELECT [Nombre de columna con imagen] FROM [Nombre de tabla] WHERE [Condición]")

    'Si hay registros que coincidan con la condición, extraiga la imagen

    If Not rs.EOF Then

        Set fs = CreateObject("Scripting.FileSystemObject")

        rs.MoveFirst

        Do While Not rs.EOF

            'Cree el archivo de imagen y guárdelo en la ubicación especificada

            fs.CreateTextFile strRutaArchivo & strNombreArchivo, True

            fs.CreateTextFile(strRutaArchivo & strNombreArchivo).Write rs.Fields("[Nombre de columna con imagen]").GetChunk(0, rs.Fields("[Nombre de columna con imagen]").ActualSize)

            rs.MoveNext

        Loop

        Set fs = Nothing

    End If

    rs.Close

    Set rs = Nothing

End Sub