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