Información de fondo: No soy muy hábil con VBA o Access, pero tengo un script VBA que crea un archivo (un KML para ser específico, pero esto no importa mucho para mi pregunta) en la computadora de los usuarios y le escribe utilizando variables que enlazan a registros en la base de datos. Como tal:

Dim MyDB As Database
Dim MyRS As Recordset
Dim QryOrTblDef As String
Dim TestFile As Integer

    QryOrTblDef = "Table1" 
    Set MyDB = CurrentDb
    Set MyRS = MyDB.OpenRecordset(QryOrTblDef)
    TestFile = FreeFile

    Open "C:\Testing.txt"
    Print #TestFile, "Generic Stuff"
    Print #TestFile, MyRS.Fields(0)

etc.

Mi situación: Tengo una cadena muy grande (un documento de texto con una lista grande de coordenadas de vértice de polígono) que quiero agregar a una variable que se imprimirá en otro archivo (un archivo KML, anotado en el ejemplo anterior). Esperaba agregar este archivo de texto que contiene coordenadas como un tipo de datos adjunto a la base de datos de Access y copiar su contenido en una variable que se usará en el script anterior.

Mi pregunta: ¿Hay alguna forma de acceder y copiar los datos de un archivo de texto adjunto (adjunto como un tipo de datos adjuntos dentro de un campo de una base de datos de MS Access) en una variable para poder usarla en un script VBA?

Lo que he encontrado: Estoy teniendo problemas para encontrar información sobre este tema. Creo que principalmente porque no tengo conocimiento de qué palabras clave buscar, pero pude encontrar el código de alguien en un foro, "ozgrid", que parece estar cerca de lo que Quiero hacer. Aunque solo se está extrayendo de un archivo de texto en el disco en lugar de uno adjunto a la base de datos.

Código del foro mencionado anteriormente que crea una función para acceder a los datos en un archivo de texto:

Sub Test() 

    Dim strText As String 

    strText = GetFileContent("C:\temp\x.txt") 
    MsgBox strText 

End Sub 

Function GetFileContent(Name As String) As String 
    Dim intUnit As Integer 

    On Error Goto ErrGetFileContent 
    intUnit = FreeFile 
    Open Name For Input As intUnit 
    GetFileContent = Input(LOF(intUnit), intUnit) 
ErrGetFileContent: 
    Close intUnit 
    Exit Function 
End Function 

Cualquier ayuda aquí será apreciada. Gracias.