各位网友好，现有下面的程序，用二进制方式向文件中写内容
Dim strtext As String
Dim theFileName As String '文件名
    theFileName = App.Path & "\test.txt"
strtext = "我们伟大的祖国！"
If theFileName = "" Then
        MsgBox "文件不存在!"
        Exit Sub
    End If
    'Binary方式打开文件
    Open theFileName For Binary As #1    '写入文件
    Put #1, , strtext  'fileBuff
    Close #1

运行时发现，原文件的内容不能清空，只有由开始到变量strtext 长度之前的内容被覆盖，后面的内容仍存在。那么如何才能把原文件中的内容清空呢，请指导，谢谢。
另外注释中的fileBuff是何意

对TXT文件如如何新建，代码为何