[color=darkblue]Sub[/color] CreateTmpFile()
  [color=darkblue]Dim[/color] tmpStr [color=darkblue]As String[/color], F _
    [color=darkblue]As Long[/color]
 
  F = FreeFile
  tmpStr = String(100000, ".")
 
  [color=darkblue]Open[/color] "C:\Test.txt" [color=darkblue]For[/color] Output _
    [color=darkblue]As[/color] #F
  Print #F, tmpStr
  Close #F
 
[color=darkblue]End Sub[/color]

Viel Spass,
R@lf