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

о = 3456
Буква_1_О = Left$(о, 1)
Буква_2_я_О = Right$((Left$(о, 2)), 1)
Буква_3_я_О = Right$((Left$(о, 3)), 1)
Буква_4_я_О = Right$((Left$(о, 4)), 1)
Буквы_12_О = Left$(о, 2)

Dim S As Integer
S = 2433
If Val(Mid(S, 1, 1)) + Val(Mid(S, 2, 1)) = Val(Mid(S, 3, 1)) + Val(Mid(S, 4, 1)) Then
    MsgBox "YES"
End If

Dim S As Integer
S = 2433
 MsgBox IIf(S \ 1000 + S \ 100 Mod 10 = (S Mod 100) \ 10 + (S Mod 10), "YES", "NO")

Option Explicit
 
Function LuckyTicket(B As String) As Boolean
Dim L As Long, S As Long
For L = 1 To Len(B) \ 2
  S = S + Mid$(B, L, 1) - Mid$(B, Len(B) - L + 1, 1)
Next L
LuckyTicket = S = 0
End Function
 
Sub LuckyTicket_Example()
MsgBox LuckyTicket("4875")
MsgBox LuckyTicket("001010")
MsgBox LuckyTicket("000000")
End Sub

Буква_2_я_О =mid$(o,2,1)