Formatering af cpr nummer

Mon "0#####-????"

Det kan vist kun laves med en makro. Denne makro checker om det 7. tegn er en bindestreg, og hvis ikke indsættes bindestregen.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
If Mid(Target, 7, 1) <> "-" Then
Target = Left(Target, 6) & "-" & Right(Target, 4)
End If
End If
End Sub

Jeg er desværre ikke alt for stiv i vba, men vil høre om det kan kombineres med den eksisterende kode

Private Sub textbox1_exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Text = Format(TextBox1.Text, "000000-0000")

End Sub