Найти наибольшую сумму соседних элементов в массиве: Z={0.21; -1.6; 3.15; 21.9; 4.18; 12.9; -2.3; 7.2; 4.5; 6.8; 9.21; 1.7;7.9;-2.4) - VB

Private Sub Command1_Click()
Const z$ = "0.21; -1.6; 3.15; 21.9; 4.18; 12.9; -2.3; 7.2; 4.5; 6.8; 9.21; 1.7;7.9;-2.4"
Dim a
a = Split(z, ";")
Dim i As Long
Dim MaxSum As Double
MaxSum = -1.79769313486231E+308
For i = 0 To UBound(a) - 1
  If Val(a(i)) + Val(a(i + 1)) > MaxSum Then MaxSum = Val(a(i)) + Val(a(i + 1))
Next i
Command1.Caption = MaxSum
End Sub