saber contenido textbox

[siwsonu]

hola a todos.
estoy intentado hacer una interfaz como la de un telefono celular, una parte donde se llena el msj con un textbox y un label donde se visualizan la cantidad de caracteres restantes (maximo 160), el asunto es que a medida que se escribe el mensaje este numero del label tiene que ir decreciendo. lo intente hacer de esta forma :

Private Sub txtenviar_Change()

textnum = textnum + 1
lblmostrar.Caption = (160 - textnum)

End Sub


y si lo hace, el asunto es que al borrar tambien sigue decrementando el numero. y si logro detectar de alguna forma la tecla delete(que no se como xD) para incrementar el valor todavia no serviria, porq si se selecciona el texto completo y se borra, solamente se incrementaria 1 sola vez. por eso quiero saber si hay alguna forma de saber la cantidad de caracteres que hay en un textbox de alguna otra forma, cuestion de que si se selecciona el texto completo o parte de el saber cuantos caracteres quedaron.