VBA Character Count from Textbox

[grabrail]

I have created a text box and limited its max length to 53 character. I've also created a label that shows how many characters have been typed in the text box using the following:

Private Sub FaultDetails_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Me.Label8 = Len(Me.FaultDetails.Value) + 1 & " / 53"
End Sub

Thsi works ok, and counts incrementally each character.

However, if i start typing and then delete some characters, it doesnt show the current length, e.g. if i typed hello there, the count goes up incrementally up to 11, if i then delete the "there" from the sentence it stays at 11 until i start typing something else.

How do i get it to regsiter the character deletions as the they are deleted?

 

[Legacy 143009]

Why don't you use Change event?

Private Sub FaultDetails_Change()
  Me.Label8 = Len(Me.FaultDetails.Value) + 1 & " / 53"
End Sub

 

[Akuini]

Try using Change event:

Private Sub FaultDetails_Change()
    Me.Label8 = Len(Me.FaultDetails.Value) + 1 & " / 53"
End Sub

 

[grabrail]

Thank you both, works perfectly