Private Sub Command1_Click()
Dim du
Open "D:\A\虞美人-王国维.txt" For Input As #1 Len = Len(Text1.Text)
Input #1, du
Close #1
Text1.Text = CStr(du)
End Sub