Private Sub bc_Click()
Dim a As String
a = Text3.Text
Open "C:\Users\大魔王\Desktop\1505061127刘超\刘超.sdt" For Output As #1
Print #1, a
Close #1
End Sub
Private Sub dk_Click()
Dim txt
CommonDialog1.ShowOpen
Open "C:\Users\大魔王\Desktop\text1.txt" For Input As #1 Len = 6
Line Input #1, txt
Text1.Text = txt
Close #1
End Sub