Code Amendment Needed: Clear the contents of a text when its contents are selected while pressing a key - VBA

[kelly mort]

Hello good morning/afternoon/evening.
I have this code here that I want to do a few amendments and I need your help with that.

I want to achieve two goals but if I can get at least one goal, I will be very happy.

1. When I select all the contents of the textbox and press a key afterwards, I want to replace the pressed character with the highlighted content - just like it is with text editors.

2. On this line:

Case Is > 7 : .Text = Left (.Text, 7)

When I press keys after all 8 characters inside the textbox, the last character keeps being replaced with whatever new character or key pressed.

How do I avoid that?
If I want to display alert while there are 8 characters inside already and I press a key again?

Private Sub TextBox1_KeyPress (ByVal KeyAscii As MSForms.ReturnInteger)
     With TextBox1 
           KeyAscii = KeyAscii * -CLong (Chr (KeyAscii) Like "[0-9]")
           Select Case Len (.Text)
               Case Is = 2 : .Text = .Text & "-"
               Case Is = 5 : .Text = .Text & "-"
               Case Is > 7 : .Text = Left (.Text, 7)
          End Select 
     End With
End Sub

 

[dmt32]

Hi,
try setting the MaxLengh property of the control and see if that helps you

With TextBox1
            .MaxLength = 8
           KeyAscii = KeyAscii * -CLng(Chr(KeyAscii) Like "[0-9]")
           Select Case Len(.Text)
               Case Is = 2: .Text = .Text & "-"
               Case Is = 5: .Text = .Text & "-"
               Case Is > 7: .Text = Left(.Text, 7)
          End Select
     End With

Dave

 

[kelly mort]

Hi @dmt32,
I have tried that maxlength before but it did not work.

The last character keeps changing when I press a key.

However, your post helped me to fix that error using the len function on this line:

  Case Is > 7: .Text = Left(.Text, 7)

Implementation :

......
  Case Is > 7: 
      If Len (.Text) = 8 Then
         MsgBox "Hi"
       Else
         .Text = Left(.Text, 7)
       End If

Thanks for the tip.

 

[kelly mort]

How about the first request?

If anyone has any idea how to handle that situation I would love it.