problemas para establecer tope formulario

[cazadorite]

sip tengo un texto en vb .net 2005 y un contador de numeros weno la idea es que cuando ingreso datos solo que cuente los numeros eso es facil pero cuando borro numeros tambien tiene que decrementar el contador eso tambien lo hice pero si mantengo la tecla del(retroceso) sin agregar ningun numero salta error por desbordamiento del vector de cadena y no lo puedo solucionar le valido para que sea igual o mayor a 0 y no me descuenta los numeros borrados quiero solucionar para que no me salte error al borrar sin poner un numero ._.

Código:

Public Class frmnro2
    Dim cont As Integer = 0
    Private Sub txt1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txt1.KeyPress
        Dim cad As String
        Dim n As Integer




        If Char.IsNumber(e.KeyChar) = True Then
            cont += 1
            lbl1.Text = "Numeros ingresados:" & cont
        ElseIf (Asc(e.KeyChar) = 8) And (n >= 0) Then
            cad = txt1.Text.ToString
            n = txt1.SelectionStart()

            If (Char.IsNumber(cad(n - 1)) = True) And n >= 0 Then

                cont -= 1
                lbl1.Text = "Numeros ingresados:" & cont
            End If



        End If

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt1.TextChanged

    End Sub

    Private Sub frmnro2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub lbl1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbl1.Click

    End Sub
End Class

[gedarufi]

No lo hagas en el evento KEYPRESS, hazlo en el KEYUP, por que se supone que en el evento KEYPRESS aun no se ha modificado el texto mientras que en KEYUP si.