Calcular la sumatoria números múltiplos de 3 Codigo Fuente en Visual Basic

Problema
Hacer un programa o algoritmo, que permita el ingreso de 100 números enteros. El programa debe sumar todos los números que sean múltiplos de 3.

Codigo Fuente en Visual Basic

Public Class Form1
    Dim c As Integer = 0
    Dim sum As Integer = 0
    Dim num, lon As Integer
    Dim cad As String = ""
    Private Sub Button1_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Button1.Click
        lon = TextBox1.Text
        num = TextBox2.Text
        If (lon <> c) Then
            If (num Mod 3 = 0) Then
                sum = sum + num
            End If
            c = c + 1
            cad = cad + " " + Trim(num)
            TextBox3.Text = cad
        Else
            TextBox4.Text = Trim(sum)
        End If
    End Sub
End Class

Descargar Proyecto Visual Basic