新建From1（窗体），新建Command1（按钮CommandButton），代码：

Private Sub Command1_Click()
    Dim strFN As String    
    strFN = "manongku.txt"
    
    Dim intFileNum%: intFileNum = FreeFile
    
    Open App.Path & "/" & strFN For Output As #intFileNum
        Print #intFileNum, "码农库MaNongKu.com"
    Close #intFileNum
    
    MsgBox "已经保存到文件：" & strFN, vbInformation, "完成"
End Sub

其中，经过TypeName (FreeFile)测试，FreeFile的类型是Integer。

注意，当你连续调用 FreeFile 时，它会返回相同的文件号，直到你实际使用这个文件号打开文件为止：

Dim intFileNum%: intFileNum = FreeFile       ' 返回可用的文件号，比如 1
Dim intFileNum2%: intFileNum2 = FreeFile     ' 仍然返回 1，因为之前的文件号还没被使用
Dim intFileNum3%: intFileNum3 = FreeFile     ' 仍然返回 1

也就是说需要在Open前一行使用FreeFile才能得到现在空闲的文件号。