Посчитать сумму модулей элементов векторов - VB

Sub VectorSumm()
 
Cells.Clear
Dim s, i%, k, j%
 
s = Split(InputBox("Введите числа, разделённые пробелами", , "3.1 -0.1"))
ReDim F(UBound(s))
For i = 0 To UBound(s)
    F(i) = Val(s(i))
    Cells(i + 1, 1) = F(i)
Next
 
k = Split(InputBox("Введите числа, разделённые пробелами", , "-5.1 0.2 -0.3 0.4"))
ReDim G(UBound(k))
For j = 0 To UBound(k)
    G(j) = Val(k(j))
    Cells(5, j + 1) = G(j)
Next
 
t = 0
ReDim a(UBound(s), UBound(k))
For i = 0 To UBound(s)
  For j = 0 To UBound(k)
     a(i, j) = Abs(F(i)) + Abs(G(j))
     t = t + 1
   Next
Next
Cells(8, 1).Resize(i, j) = a
 
End Sub