VB怎么使用Open语句打开文件后将其清空

VB如何使用Open语句打开文件后将其清空？
我用Open 语句打开一个.txt文件,然后想判断其大小，如果超过设定的值就将文件清空，但不删除文件，本人菜鸟，求各位大神赐教！

[解决办法]

VB code

    If FileLen("c:\123.txt") > 2 Then        Call Kill("c:\123.txt")        Open "c:\123.txt" For Output As #1        Write #1,        Close #1    End If