Insert character automatically in Userform Textbox

[sharky12345]

I have a Textbox which is limited to 18 characters - what I need is for a forwardslash to be inserted automatically after the 1st five characters and then again after the 2nd six, so the result would look like this;

ABCDE/123456/FGHIJ

If the user puts the slashes in themselves then I'd need the automatic formatting to be stopped.

 

[mikerickson]

Do you require that the first batch be alphabetic, the next be numeric and the last group alphabetic?

 

[sharky12345]

Mi Mike - the Textbox has a combination of letters and numerics and it doesn't matter which order they go in, but I would like to limit it to only these and slashes, so nothing else could be entered if that makes a difference?

 

[mikerickson]

Perhaps this would work.

Private Sub TextBox1_Change()
    Const Delimiter As String = "/"
    Dim RawString As String
    
    RawString = Replace(TextBox1.Text, Delimiter, vbNullString)
    RawString = WorksheetFunction.Replace(RawString, 6, 0, Delimiter)
    RawString = WorksheetFunction.Replace(RawString, 12, 0, Delimiter)
    RawString = Replace(RawString, Delimiter & Delimiter, Delimiter)
    
    If Len(RawString) = 6 Or Len(RawString) = 12 Then
        Rem do nothing
    Else
        If Right(RawString, 1) = Delimiter Then
        RawString = Left(RawString, Len(RawString) - 1)
        End If
    End If
   
    TextBox1.Text = RawString
End Sub

 

[sharky12345]

Thanks - I'll give that a try!