Como puedo traer un archivo de txt a un MsgBox

hola, octavio !

Mostrar la cita

... diariamente genero varios archivos ... necesito checar que la informacion ... sea correcta [...]
20040922.124
20040923.124
y asi dia con dia.
... que me abra el archivo ... busque en la ultima linea ... el contenido de los espacios
... 154 al 161 en formato 0.000000
... 173 al 179 en formato 0.0000

una 'variante' del tema que 'vimos' +/- por enero/2004
saludos,
hector.
en un modulo de codigo 'normal' ==Sub Revisar_Info()
Dim Directorio As String, Archivo As String, Mensaje As String, _
Salida1 As String, Campo1 As Integer, Largo1 As Integer, _
Salida2 As String, Campo2 As Integer, Largo2 As Integer, _
Revisar As Integer, Temp
Directorio = "C:\Documents and Settings\Propietario\Mis documentos\" '"C:\Mis documentos\"
Archivo = "20040204.124" 'Format(Date, "yyyymmdd") & ".124"
Salida1 = "0.000000"
Salida2 = "0.0000"
Campo1 = 154
Largo1 = 8
Campo2 = 173
Largo2 = 7
Mensaje = "Archivo" & vbTab & vbTab & "Campo 1" & vbTab & vbTab & "Campo 2" & vbCr & Archivo & vbTab
Revisar = FreeFile
Open Directorio & Archivo For Input As #Revisar
Do Until EOF(Revisar)
Line Input #Revisar, Temp
Loop
Mensaje = Mensaje & _
Format(Mid(Temp, Campo1, Largo1) / 1000000, Salida1) & vbTab & _
Format(Mid(Temp, Campo2, Largo2) / 10000, Salida2)
Close Revisar
MsgBox Mensaje, , "Revisión del archivo..."
End Sub