Sumatoria de números múltiplos de cinco Codigo Fuente en Visual Basic

Problema
Desarrolle un algoritmo que realice la sumatoria de los números enteros múltiplos de 5,
comprendidos entre el 1 y el 100, es decir, 5 + 10 + 15 +…. + 100. El programa deberá imprimir los números en cuestión y finalmente su sumatoria

Codigo Fuente en Visual Basic

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim sum As Integer = 0
        Dim cad As String = ""
        For i As Integer = 5 To 100 Step 5
            sum = sum + i
            cad = cad + " - " + Trim(i)
        Next i
        TextBox1.Text = cad
        TextBox2.Text = Trim(sum)
    End Sub
End Class

 Descargar Proyecto Visual Basic