Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As _
  Long)
 
Private Sub Form_Load()
  Timer1.Interval = 5000
  Timer2.Interval = 5000
  Timer1_Timer ' Datei schreiben
  Timer1.Enabled = True
  Sleep 2500 ' 2,5 Sekunden warten bis Datei geschrieben ist
  Timer2_Timer ' Datei lesen
  Timer2.Enabled = True
End Sub
 
Private Sub Timer2_Timer()
  ' Code für Datei lesen .....
End Sub