Visual Basic.NET - Contador automatico

Dim WithEvents MiTiempo As New Timer

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        MiTiempo.Interval = TBPaso.Text

        MiTiempo.Start()

    End Sub

    Private Sub MiTiempo_Tick(sender As Object, e As EventArgs) Handles MiTiempo.Tick

        Static ValorAMostrar As Integer = TBInicial.Text

        If ValorAMostrar > TBFinal.Text Then

            MiTiempo.Stop()

            ValorAMostrar = TBInicial.Text

        Else

            TBResultado.Text = ValorAMostrar

            ValorAMostrar += 1

        End If

    End Sub