Private Sub KeepNotes_Click()
picKeepNotes.Visible = True
End Sub

Private Sub Save_Click()
Dim iFileNum As Integer

'Get a free file handle
iFileNum = FreeFile

'If the file is not there, one will be created
'If the file does exist, this one will
'overwrite it.
Open App.Path & "\notes.txt" For Output As iFileNum

Print #iFileNum, Notetext.Text

Close iFileNum

End Sub

Private Sub Close_Click()
picKeepNotes.Visible = False
End Sub