Дано четырехзначное число. определить равна ли сумма первых двух его цифр сумме двух его последних цифр. в EXcel

Dim i As Integer
        i = CInt(InputBox("Введите 4-х значное число"))
If (CInt(Mid(CStr(i), 1, 1)) + CInt(Mid(CStr(i), 2, 1)) = CInt(Mid(CStr(i), 3, 1)) + CInt(Mid(CStr(i), 4, 1))) Then     
      MsgBox("сумма  РАВНА ")     
Else       
    MsgBox("сумма НЕ РАВНА ")     
End If

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.