Private Sub Command1_Click() Line Input #1, a Text1.Text = a End Sub Private Sub Form_Load() Open "c:\11.txt" For Input As #1 End Sub