The following code restricts the user from writing more than 10 characters in the textbox.
Code: Select all
Private Sub txtNotes_Change()
If txtNotes.TextLength > 10 Then
MsgBox "Too long"
txtNotes.Text = Left(txtNotes.Text, txtNotes.TextLength - 1)
End If
End Sub
Code: Select all
Private Sub UserForm_Initialize()
Me.txtMessageLimit.Value = 10
End Sub
And the textbox txtAvailableCharacters should be textbox txtMessageLimit – textbox txtMessageCharacters
Code: Select all
Me.txtAvailableCharacters = Me.txtMessageLimit - Me.TtxtMessageCharacters
Any help on this would be kindly appreciated.
Thanks in advance.