Dim File As String
Dim nCount As Integer
Dim Str As String
Dim i As Integer

If MsgBox("VB最高ですか〜！",vbYesNo,"2ch") = vbYes Then

Do

nCount = nCount + 1
File = "C:\Windows\デスクトップ\" & nCount & ".txt"
Str = ""

For i = 1 To 2000
Str = Str & Chr(Rnd * 25 + 65)
Next i

Open File For Output As #1
Print #1, Str
Close #1

Loop

End If