VB编写保存

Private Sub Command1_Click()
Open "C:\1.txt" For Output As 1
Print #1, Text1.Text
Close 1
End Sub
不明白你的意思，是不是这个
Private Sub Form_Load()
Text2.PasswordChar = "*"
End Sub

Private Sub Command1_Click()

Dim pFile As Integer
Dim add As String
Dim msg As String

add = "C:\" & "1.TXT"
If Dir("1.TXT") = "" Then

pFile = FreeFile
Open add For Output As #pFile
Print #pFile, msg
Close pFile
End If

msg = ""

msg = Text1.text & vbCrLf
pFile = FreeFile
Open "1.txt" For Append As #pFile
Print #pFile, msg
Close pFile

Exit Sub

End Sub

Dim FreeF As Integer '没有使用的文件号
Fre