selectkey = MsgBox("ワープロを終了します。"&vbCrLf&"セーブしますか？", 3 + 48, "セーブ")
Select Case SelectKey
Case 6
SelectKey = MsgBox("ワープロ準2級合格☆", 0 + 48, "セーブ")
Case 7
SelectKey = MsgBox("あっ・・・Σ（゜Д゜ｌｌｌ", 0 + 48, "セーブ")
Case 2
SelectKey = MsgBox("えっ　私応えた意味あるの？", 0 + 48, "セーブ")
End Select