Spanish [SOLUCIONADO]Avisa cuando supere X caracteres

[TheFalcon]

Buenas, estoy mirando pero no encuentro nada que me valga comento:
Para hacerlo resumido, lo que quiero saber es si puedo hacer que en un textbox cuando supere 40 caracteres me avise que e pasado el limite permitido , pero me deje seguir metiendo caracteres.

en B4 no se como contabilizar los caracteres que añado.

Gracias y un saludo

 

[Heppy]

Hola.

Sub EditText1_TextChanged (Old As String, New As String)
    Dim s As String
    s=New
    Label1.text=s.Length
    If s.Length>40 Then ToastMessageShow("Límite",False)
end sub

 

[TheFalcon]

Es de bien nacidos ser agradecidos jeje.
Mas vale tarde que nunca pero hasta ayer aunque parezca mentira no pude probarlo.
Va perfecto es lo que buscaba muchísimas gracias Heppy.
Me lo guardo en mis apuntes