Intenta con esto...
esta funcion carga archivos de texto, pero cuando le mandes el valor necesario para su ejecucion, es decir, el path junto con el nombre del archivo, en vez de ponerle .txt le pone la extencion de tu archivo, es posible que se abra... Solo una cosa, fijate en la flecha de abajo
'Esta funcion nos carga el Carga el archivo de texto especificado en una cadena
Function CargaTxt(ByVal StrPath As String) As String
Dim strCad As String
Dim strCadTemp As String
Dim NumFile As Long
NumFile = FreeFile
On Error GoTo err53
Open StrPath For Input As #NumFile
Do While Not EOF(NumFile)
Line Input #NumFile, strCadTemp
If Trim(strCad) = vbNullString Then
strCad = strCadTemp
Else
strCad = strCad & vbNewLine & strCadTemp
End If
strCadTemp = vbNullString
DoEvents
Loop
DoEvents
Close #NumFile
CargaTxt = strCad
err53:
If Err = 53 Then
End If
me.txt_prueba.text=cargatxt 'Es posible que aqui tengas que poner el nombre 'del label o caja de texto en el que quieres que aparezca tu texto, no estoy muy seguro de que funcione, pero intentalo y despues me dices si funciono
End Function