Function Create_TESTDATEI(LAENGE As Long) As Boolean
  Dim F As Long
  Dim I As Long
  F = FreeFile
  Open "C:\TESTDATA.TXT" For Output As #F
  Do
    Print #F, "-";
  Loop Until LOF(F) >= LAENGE
  Close #F
  Create_TESTDATEI = True
End Function
 
 
Private Sub Command1_Click()
  R = Create_TESTDATEI(999)
End Sub

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)