VBA Tips2 - テキストボックスの内容をテキストファイルに保存する

Dim fno As Integer
空きファイル番号を取得します。
fno = FreeFile
ファイル番号を割り当てファイルを開きます。
Open "c:\temp.txt" For Output As fno
テキストボックスの内容を書き込みます。
Print #fno, Me!テキスト1
ファイル番号の使用が終了すれば、閉じます。
Close fno