Dim strInfo As StringstrInfo = ComboBox1.SelTextOpen "d:\temp1.txt" For Append As #1Write #1, strInfo & Chr(13)Close #1MsgBox "写入完毕"