Module Module1
   
   Sub Main()
   Dim ar As Integer()
  Dim flag As Integer
   Dim sum As Integer = 0
  ar = New Integer() {15, 8, 1, 6, 34, 7, 5, 342, 4, 9}
   
   
   For i = 0 To ar.GetUpperBound(0)
              flag = 0
   For j = 2 To ar(i) / 2   'Divide by 2 because of Mathematics Rule
   If ar(i) Mod j = 0 Then
                      flag = 1
   Exit For 'To make Program more efficient (It is Optional)
   End If
   Next
   If flag = 1 Then
  sum = sum + ar(i)    ' or sum += ar(i)
  End If
   Next
   
          Console.WriteLine("The sum of composite numbers is: {0}", sum)
          Console.ReadLine()
   
   End Sub
   
  End Module