Visual Basic - COTROLAR APERTURA Y CIERRE DE UN TXT

COMO PODRIA CONTROLAR SI UN FICHERO DE TEXTO TXT ESTA ABIERTO O CERRADO ??? muchas gracias

¿Dentro de tu aplicación o de otra? fijate con ésta función si te sirve:

Private Function FileIsOpen(ByVal strPathName As String) As Boolean
On Error GoTo FileOpen

Dim hFile As Long
hFile = FreeFile

Open strPathName For Random Access Write As hFile
Close hFile

FileIsOpen = False

Exit Function

FileOpen:
FileIsOpen = True
Exit Function
End Function

EL PROBLEMA ES QUE , UN EJECUTABLE HECHO EN VISUAL BASIC ESTA MODIFICANDO UN TXT , AL MISMO TIEMPO DESDE MI APLICACION TENGO QUE MIRAR EL CONTENIDO QUE VA DEPOSITANDO , LO HAS LOGRADO HACER ALGUNA VEZ???