' in Modul
Public Sub AddLog(ByVal sText As String)
  Dim F As Integer
 
  F = FreeFile
  Open App.Path & "\program.log" For Append As #F
  Print #F, sText
  Close #F
End Sub

Private Sub Form_Load()
  AddLog "Form_Load"
 
  ' Codezeilen 
  ...
  AddLog "1"
 
  ' Codezeilen
  ...
  AddLog "2"
 
  ' Codezeilen
  ...
  AddLog "3"
 
   ...
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de