Contar cuántos números fueron ingresados Codigo Fuente en Visual Basic

Problema
Diseñar un algoritmo que me permita ingresar una lista de números que se termine de ingresar más datos con el número cero, para luego calcular  cuántos números fueron ingresados.

Codigo Fuente en Visual Basic

Public Class Form1
    Dim cont As Integer = 0
    Private Sub Button1_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim num As Integer
        num = TextBox1.Text
        If (num = 0) Then
            TextBox2.Text = Trim(cont)
            cont = 0
        Else
            cont = cont + 1
        End If
    End Sub
End Class

 Descargar Proyecto Visual Basic