Visual Basic para Aplicaciones - Abrir Ficheros

Buenos dias grupo, espero todos se encuentren bien.
Tengo una consulta que hacer.
Estoy tratando de abrir un fichero con visual basic 6, pero dicho fichero
fue creado en COBOL y dicho fichero tiene la siguiente estructura.

FD EFSEST
LABEL RECORD IS STANDARD
DATA RECORD IS EST-EFSEST.

01 EST-EFSEST.
02 EST-CODIGO PIC X(03).
02 EST-DESCRIPCION PIC X(25).
02 EST-TIPO PIC X(02).
02 EST-PROVISION PIC 9.

Y este es el codigo que estoy utilizando en visual basic para abrir el
archivo y leer los datos

Private Type t_EST
Codigo As String * 3
Descripcion As String * 25
Tipo As String * 2
Provision As Integer
End Type

Private Sub Command1_Click()
Dim EFSEST As t_EST
Dim nFic As Long
Dim t_codigo As String * 3
Dim t_descripcion As String * 25
Dim t_tipo As String * 2
Dim t_provision As Integer
nFic = FreeFile
Open "c:\dataefs\EFSEST.dat" For Random As nFic Len = Len(EFSEST)


'Leer los datos en el disco
Get #nFic, , EFSEST

With EFSEST
t_codigo = .Codigo
t_descripcion = .Descripcion
t_tipo = .Tipo
t_provision = .Provision
End With

Print t_codigo
Print t_descripcion
Print t_tipo
Print t_provision

Close nFic

End Sub

Al parecer abre el fichero pero a la hora de desplegar en pantalla lo que
lei en el fichero, me muestra basura, y nose ya que estare haciendo mal, si
alguien sabe que error puedo estar cometiendo le agradeceria mucho me
ayudara.