Sub cancel_Click ()
Unload saveit
End Sub

Sub ok_btn_Click ()
If savepath.text <> "" Then
    Open savepath.text For Output As #2
        Print #2, savetext
        savetext = ""
    Close #2
End If
Unload saveit
End Sub