макросы в excel

Sub al3()
        Dim a As Single, b As Single, c As Single
     a = InputBox("первое число")
     b = InputBox("второе число")
     c = InputBox("третье число")
         MsgBox "Вы уверены, что хотите их сложить?", vbYesNoCancel, "пример"
         If da = vbYes Then
         da = a + b + c
         MsgBox da, vbApplicationModal, "пример"
         If net = vbNo Then
         net = a * b * c
         MsgBox net, vbInformation, "пример"
         If Cancel = vbCancel Then
         Cancel = "Действие прервано пользователем"
         End If
         End If
         End If
         End Sub

MsgBox "Âû óâåðåíû, ÷òî õîòèòå èõ ñëîæèòü?", vbYesNoCancel, "Èíôîðìàöèîííîå ñîîáùåíèå"
 If da = vbYes Then

da = MsgBox("Âû óâåðåíû, ÷òî õîòèòå èõ ñëîæèòü?", vbYesNoCancel, "Èíôîðìàöèîííîå ñîîáùåíèå")

select case da
case 6
'код если да
case 7
' код если нет
case 2'вроде 2. проверь код при отмене
' код если отмена
end select

da = MsgBox("Вы уверены, что хотите их сложить?", vbYesNoCancel, "Информационное сообщение")

Sub Сложение()
Dim a As Single, b As Single, c As Single
a = InputBox("первое число")
b = InputBox("второе число")
c = InputBox("третье число")
da = MsgBox("Вы уверенны, что хотите их сложить?", vbYesNoCancel, "Информационное сообщение")
If da = vbYes Then
da = a + b + c
MsgBox da, vbApplicationModal, "пример"
If net = vbNo Then
net = a * b * c
MsgBox net, vbInformation, "пример"
If Cancel = vbCancel Then
Cancel = "Действие прервано пользователем"
End If
End If
End If
End Sub

If net = vbNo Then