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