Private Sub Command1_Click()Text1.Text = "tidfdfkdkj kdfkjgdf dkjfjgdf dkjfgkj dkfgkjd df dfkgjdfg dkjfgkjdfg dfkgkjdfkjg "Open "ffffff.txt" For Output As 1Print #1, Text1.TextClose #1End Sub若满意请及时采纳,谢谢