fijate si te sirve esto, yo creaba un archivo .txt , lo abría y escribía en el unos datos, fijate si te sirve esta parte:
Open "c:\distancia.txt" For Append As #1
Print #1, "****Inicio***** "; Date; Tab; Time
Print #1, ""
Close #1
fijate que el escribía ***inicio****, despues en el mismo renglon escribía el día. y separado con un TAB escribia la hora, o fijate tambien estas linea
Private Sub Label4_Change()
' If Text1.Text = "" Then
' GoTo salir
'Else
Open "c:\distancia.txt" For Append As #1
Print #1, Time & Chr(32) & "--------" & Chr(32) & Label4.Caption
Close #1
List1.AddItem (Chr(32) & Chr(32) & Time & Chr(32) & "-----------" & Chr(32) & Label4.Caption)
'Text1.Text = ""
salir:
'End If
End Sub
el Chr(32) si ma no recuerdo es la barra espaciadora, la utilizaba para separar con un espacio entre cada elemento.
No se si es esto lo que preguntaste pero ojala que te sirva de algo.. nos vemos salu2