User form - txt field formatting numbers !!!

[MasterChief]

I am using this code to try and format a number like this 12-345-6789 but for some reason it’s not working any idea?

Private Sub nsn_Change()
If nsn.TextLenght = 2 or nsn.textlenght = 6 then
Nsn.text = nsn.text + “-“
Endif
End sub

 

[CalcSux78]

Might be a typo on "TextLength"

try:

Private Sub nsn_Exit(ByVal Cancel As MSForms.ReturnBoolean)

nsn = Format(nsn, "##-###-####")
End Sub

 

[MasterChief]

Thanks works great, but is it possible to see the dashes as I start to type in the number?

 

[CalcSux78]

Although not as elegant:

Private Sub nsn_Change()
Dim str$
str = Replace(nsn, "-", "")
Select Case Len(str)
    Case 1, 2
        nsn = str
    Case 3 To 5
        nsn = Mid(str, 1, 2) & "-" & Mid(str, 3)
    Case Else
        nsn = Mid(str, 1, 2) & "-" & Mid(str, 3, 3) & "-" & Mid(str, 6)
End Select
End Sub

 

[veyselemre]

Case 0
nsn = ""

It was more beautiful when it was added.

OR

Private Sub nsn_Change()
    Dim str$
    str = Replace(nsn, "-", "")
    Select Case Len(str)
        Case 1, 2
            nsn = str
        Case 3 To 5
            nsn = Mid(str, 1, 2) & "-" & Mid(str, 3)
        Case Is > 5
            nsn = Mid(str, 1, 2) & "-" & Mid(str, 3, 3) & "-" & Mid(str, 6)
    End Select
End Sub