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