Запись значений каждую секунду

Option Explicit
 
Type m_rec
  DT As Date 'здесь можно хранить дату и время в 8-ми байтах
  a As Double '8-мь байт
  b As Double '8-мь байт
  c As Double '8-мь байт
  d As Double '8-мь байт
End Type
 
Sub main()
Dim m As m_rec
MsgBox Len(m) '40 байт
End Sub

Public Sub WritLog()
Dim LogFile 
LogFile = FreeFile
'On Error GoTo Err
Open "C:\Save\Log.txt" For Append As #LogFile 
 
' Дата, время
Dim S, S1, S2 As String
S = Now
S1 = Mid(S, 1, 10) 'Дата
S2 = Mid(S, 11, 19) 'Время
 
Print #LogFile, S1, Chr(9), S2, Chr(9), Form1.Text1.Text, Chr(9), _
Form1.Text2.Text, Chr(9), Form1.Text3.Text, Chr(9), Form1.Text4.Text
Close #LogFile 
Exit Sub
'Err: MsgBox "Ошибка записи в файл"
Exit Sub
End Sub

Option Explicit
Public Sub WritLog()
Dim DT As Date 
Dim a As Double 
Dim b As Double 
Dim c As Double 
Dim d As Double 
 
Dim LogFile 
LogFile = FreeFile
'On Error GoTo Err
Open "C:\Save\Log.tow" For Append As #LogFile 
DT = Now
a = Form1.Text1.Text
b = Form1.Text1.Text
c = Form1.Text1.Text
d = Form1.Text1.Text
'On Error Resume Next
Print #LogFile, DT, a, b, c, d
Close #LogFile 
Exit Sub
'Err: MsgBox "Îøèáêà çàïèñè â ôàéë"
Exit Sub
End Sub

Type m_rec 'итого - 16 байт на 1 запись
  DT As Date 'здесь можно хранить дату и время в 8-ми байтах
  a As Double '8-мь байт
End Type
 
Sub main()
Dim m As m_rec, ff&
  
  m.a = 1E+16
  m.DT = Now
ff = FreeFile
Open "c:\123.txt" For Binary Lock Read Write As #ff 'первая запись
  Put #ff, , m
Close #ff
Debug.Print m.a, m.DT
 
  m.a = 1.23456789012345E+15
ff = FreeFile
Open "c:\123.txt" For Random Lock Read Write As #ff Len = Len(m) 'следующая запись
  Put #ff, LOF(ff) / Len(m) + 1, m
Close #ff
 
  m.a = 0 'обнуляем для чистоты эксперимента
  m.DT = 0
ff = FreeFile
Open "c:\123.txt" For Binary As #ff 'считываем последнюю запись
  Get #ff, LOF(ff) - Len(m) + 1, m
Close #ff
Debug.Print m.a, m.DT
End Sub