3d.text=3d.text & text3.text & "," & text4.text & "," text5.text & ",1,1" 如需换行 可用 vbCrLf
open app.path & "\3d.txt" for append as #1print #1,text3.text & "," & text4.text & "," & text5.text & ",1,1"close #1
