Textbox sin caracteres repetidos

[aguilaone]

Alguien me podría apoyar con el código para que en un textbox de un userform no se repitan caracteres repetidos.

 

Ejemplo si al empezar a escirbrir la primer letra es una L al escribir la segunda ya no me permita usar dicha letra, y al escribir la tercera me impida usar las dos anteriores

Cabe mencionar que solo serán máximo 3 caracteres los que se usaran en el textbox.

 

De antemano gracias 

[Antoni]

Suponiendo que tu textbox se llame TextBox1

Private Sub TextBox1_Change()
With TextBox1
   If Len(.Value) > 1 Then
      For x = 1 To Len(.Value) - 1
         If Mid(.Value, x, 1) = Right(.Value, 1) Then
            .Value = Left(.Value, Len(.Value) - 1)
            Exit Sub
         End If
      Next
   End If
End With
End Sub

 

[aguilaone]

Hace 8 horas, Antoni dijo:

Suponiendo que tu textbox se llame TextBox1

Private Sub TextBox1_Change()
With TextBox1
   If Len(.Value) > 1 Then
      For x = 1 To Len(.Value) - 1
         If Mid(.Value, x, 1) = Right(.Value, 1) Then
            .Value = Left(.Value, Len(.Value) - 1)
            Exit Sub
         End If
      Next
   End If
End With
End Sub

 

Mil gracias, justo lo que necesitaba 

Duda resuelta