Displaying characters remaining

[HanneSThEGreaT]

Something like this :

Option Explicit
Private CharsRem As Integer

Private Sub Form_Load()
CharsRem = 255
Label1.Caption = CStr(CharsRem) & " Remaining"
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyBack Then
    CharsRem = CharsRem + 1
    
    If CharsRem > 255 Then CharsRem = 255
    Label1.Caption = CStr(CharsRem) & " Remaining"
ElseIf KeyCode = vbKeyDelete Then
    CharsRem = CharsRem + 1
    Label1.Caption = CStr(CharsRem) & " Remaining"
ElseIf KeyCode = vbKeyLeft Then
    CharsRem = CharsRem
ElseIf KeyCode = vbKeyRight Then
    CharsRem = CharsRem
ElseIf KeyCode = vbKeyUp Then
    CharsRem = CharsRem
ElseIf KeyCode = vbKeyDown Then
    CharsRem = CharsRem
Else
    CharsRem = CharsRem - 1
    
    If CharsRem < 0 Then CharsRem = 0
    Label1.Caption = CStr(CharsRem) & " Remaining"
End If
End Sub

It works when normal typing is done, you'd still have to determine if other text editing keys (such as End & Home ) are clicked

IS that what you want ¿