مشكلة مع اغلاق الفورم

السلام عليكم

لدي الكود التالي

Private Sub Form_Unload(Cancel As Integer)

Cancel = True

If Changed = False Then End

If Changed = True Then

res = MsgBox("Save your invoice!!!", vbYesNoCancel, "Caution")

If res = vbNo Then End

If res = vbCancel Then Exit Sub

If res = vbYes Then

CommonDialog1.FileName = ""

CommonDialog1.Flags = cdlOFNOverwritePrompt

CommonDialog1.ShowSave

Open CommonDialog1.FileName & ".xxx" For Output As #1

Write #1, Text2.Text

Close #1

End

End If

End If

End Sub

المشكلة هي عندما اغلق فورم واحد يغلق البرنامج كله و انا محتاج كود الحفظ في كل فورم فهل هناك كلمة غير end استعملها ليغلق فقط الفورم الذي طلبت اغلاقه