Private Sub Form_Load()
 
    Dim EinKBGross
    EinKBGross = Space$(100& * 1024&)
    On Error Resume Next
    Kill "C:\100kb"
    On Error GoTo 0
    Open "C:\100kb" For Binary As #1
        Put #1, 1, EinKBGross
    Close #1
 
End Sub