Data Type VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Data Type
  4. Use count function to sum array
Sub Array4()
  Dim Data(10) As Integer
  Dim Message As String, i As Integer
  For i = LBound(Data) To UBound(Data)
    Data(i) = i
  Next i
  MsgBox "Sum Elements = " & WorksheetFunction.Sum(Data)
End Sub