getalnotatie in textbox in Word

[jen]

In een userform in Word, wil ik graag een getalnotatie voor telefoonnummers in een textbox.

bijvoorbeeld (123) 123 12 12

Kan iemand mij op weg helpen, want als ik onderstaande code intyp klopt er helemaal niets van.

Private Sub txtTelefoon_Change()
txtTelefoon.Text = Format(txtTelefoon.Text, "(0##) ### ## ##")
End Sub

Groeten,
Jen

 

[gast0667]

Zoiets:

vTel = Range("A1").Value

Test = "(" & Left(vTel, 3) & ") " & Mid(vTel, 4, 3) & " " & Mid(vTel, 7, 2) & " " & Right(vTel, 2)

Waarbij "vTel" de variable van je Textbox is dus even de range aanpassen.
Tevens let op: aanname dat het kengetal maar 3 cijfers zijn.
Dus purmerend met kengetal 0294 wordt aangeduidt als (029) 4 etc.
Misschien moet je e.e.a. invullen met bijvoorbeeld een "-" teken en dan aangeven waar de min-teken staat.