Option ExplicitPrivate Sub Command1_Click()Dim i As Integer Open "c:\datal.txt" For Append As #1 For i = 1 To 10 Print #1, i, i * i * i Next i Close #1End Sub
