Dim Filename As String

Private Sub Label1_Click()

End Sub

Private Sub Label12_Click()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub Load_Click()
Filename = InputBox$("Enter File Name")
Open Filename For Input As #1
Text1.Text = Input$(LOF(1), 1)
Close #1
End Sub

Private Sub Save_Click()
Filename = InputBox$("Enter File Name")
Open Filename For Output As #1
Print #1, Text1.Text
Close #1
End Sub

Private Sub Text3_Change()

End Sub

    Source: geocities.com/matkins70