fixed it. Make it into a vbs file (it's A LOT faster now, and you can use calculations in the input box like 1024^2 to make a 1 mb file.):
===========================
Sub Main()
Dim intSize
dblSize = CDbl(Eval(InputBox("How big do y'ant it? (in bytes)")) + 0)
Continue = msgbox("Are you sure you want to create a " & dblSize & "b file?", vbOkCancel)
If Continue = vbCancel Then Exit Sub
Dim objFSO, objTextFile, strFileName
Set objFSO = CreateObject("Scripting.FileSystemObject")
Randomize
Do While Len(strFileName) < 8
strFileName = strFileName & Chr(Int((90 - 65 + 1) * Rnd + 65))
Loop
Set objTextFile = objFSO.CreateTextFile(strFileName & ".txt")
Dim sTemp, i
i = 0
Do While i < dblSize
i = i + 1
sTemp = sTemp & (Chr(Int((254) * Rnd + 1)))
if (i Mod(1000)) = 0 Then 'dump every 1000 characters
objTextFile.Write(sTemp)
sTemp = ""
End if
Loop
objTextFile.Write(sTemp)
Set objTextFile = Nothing
Set objFSO = Nothing
MsgBox("Finished.")
End Sub
Call Main