Дано четырехзначное число. определить равна ли сумма первых двух его цифр сумме двух его последних цифр. в 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