Private Sub Command1_Click() Dim ss As String Open App.Path + "/data.txt" For Input As #1 Do While Not EOF(1) Input #1, ss Text1 = Text1 + ss Loop End SubPrivate Sub Form_Load() Open App.Path + "/data.txt" For Output As #1 For i = 0 To 10 Write #1, i Next i Close #1 End Sub
Dim ss As String
Open App.Path + "/data.txt" For Input As #1
Do While Not EOF(1)
Input #1, ss
Text1 = Text1 + ss
Loop
End SubPrivate Sub Form_Load()
Open App.Path + "/data.txt" For Output As #1
For i = 0 To 10
Write #1, i
Next i
Close #1
End Sub