Необходимо реализовать 6 небольших задач по VB

Option Explicit
Dim a As Integer
Dim c(1 To 3) As Integer
Dim i As Integer
Private Sub Command1_Click()
a = InputBox("Введите трёхзначное число.")
For i = 1 To 3
c(i) = Mid(a, i, 1)
Next i
Print c(1) + c(2) + c(3)
End Sub

Option Explicit
Dim b(1 To 2) As Integer
Dim c As Integer
Dim i As Integer
Private Sub Command1_Click()
c = InputBox("Введите двухзначное число.")
For i = 1 To 2
b(i) = Mid(c, i, 1)
Next i
If b(1) = b(2) Then
Print "Равны."
Else
Print b(1) > b(2)
End If
End Sub

Private Sub Command1_Click()
a = InputBox("123-?", , 123)
MsgBox ("S1_2_3=" & a \ 100 + a \ 10 Mod 10 + a Mod 10)
End Sub

Private Sub Command2_Click()
a = InputBox("12-?", , 12)
a = a \ 10 - (a Mod 10)
MsgBox (IIf(a = 0, "I=II", IIf(a > 0, "I>II", "II>I")))
End Sub

Private Sub Command5_Click()
n% = Val(InputBox("N-?", , 10))
P = 1
While n > 0
P = P * (1 - 1 / (2 * n))
n = n - 1
Wend
MsgBox ("P=" & P)
End Sub

Private Sub Command4_Click()
a = Split(InputBox("ab cd ?", , "qwe rty"))
On Error GoTo err
MsgBox (a(1) & "    L=" & Len(a(1)))
err: If err.Number > 0 Then MsgBox "!": err.Clear
End Sub