Tekstboks VBA

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If IsNumeric(Me.TextBox1) = True And Len(Me.TextBox1) = 6 Then
        Me.TextBox1 = Format(Me.TextBox1, "0#-##-##")
    Else
        MsgBox ("Kan ikke formateres til dato")
    End If
End Sub

Tilføjelse:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If IsNumeric(Me.TextBox1) = True And Len(Me.TextBox1) = 6 Then
        Me.TextBox1 = Format(Me.TextBox1, "0#-##-##")
    Else
        MsgBox ("Kan ikke formateres til dato")
        Cancel = True      '<------------
    End If
End Sub

Mange tak for hjælpen :-)

Selv tak...

Jeg kan ikke få det til at virke.
Skal jeg gøre andet end at sætte denne tekst ind i et modul og navngive tekstboksen (jeg har indsat via "Tegning"-formatlinie) TextBox1?

Koden stammer fra en userform -

Mange tak. userform - hvor sættes den ind?

Hvilken kontekst arbejder du i - måske Excel eller...?

En userform kan hentes/indrettes i VBA-vinduet.

Hvis du sender en mail (adresse i profil) - så sender jeg min fil.