滿意答案
Private Sub Form_Click()
fname = InputBox("請輸入文件名:", "請保證文件名正確,如例子", "d:\temp.txt")
fn = FreeFile '獲取一個空閑可用文件號
Open fname For Output As fn '打開fname指名的文件用于輸出
Print #fn, "你好,這是要輸入到文件中的內容"
Print #fn, "你好,這是要輸入到文件中的第二行內容"
Close fn '關閉文件,記得用完文件要關閉它
End Sub