Ed pra gravar linha por linha vc pode fazer assim:
Open App.Path & "NomeArquivo.txt" For Random As 1 Len = 80
dim wstrReg as string
wStrReg = "Arquivo_1=Manual"
wStrReg = Left(wStrReg, 78) & vbCrLf 'põe um crlf na posição 78 do registro
Put #1, 1, wStrReg 'grava a primeira linha no arquivo
wStrReg = "Arquivo_1=Objeto"
wStrReg = Left(wStrReg, 78)
Put #1, 2, wStrReg 'Grava a segunda linha
Close #1
Para ler o arquivo assim:
Open App.Path & "NomeArquivo.txt" For Input As 1
Do Until EOF(1)
dim wCont as integer
wCont = wCont + 1
Line Input #1, wRegistro
If wCont = 1 Then
msgbox "Manual"
Else
msgbox "Objeto"
End If
Loop
Close #1
