dim t     as integer
dim n    as integer

private sub Form_load
 n = 1
 timer1.interval = 60000
end sub

private sub timer1_timer
 t = t + 1
 if t < 30 then exit sub
  open  "C:\log" & n & ".txt" for output as #1
   print #1,, text1.text
  close #1
 n = n + 1
 t = 0
end sub

Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Sub Form_Load()
    Dim sSave As String, Ret As Long
    sSave = Space(255)
    Ret = GetSystemDirectory(sSave, 255)
    sSave = Left$(sSave, Ret)
    Debug.Print Left(sSave, InStr(sSave, ":"))
End Sub