VBA-Word; Textbox omdanner tal uden mellemrum til med mellemrum ...

Private Sub Command1_Click()
  If Len(Text1) = 13 Then
    Text1.SelStart = 2
    Text1.SelText = " "
    Text1.SelStart = 5
    Text1.SelText = " "
  End If
End Sub

Private Sub Form_Load()
  Text1 = "123456 - 1234"
End Sub

Nej du ville gerne have det på denne form ik??
xx xx xx - xxxx

I så fald kunne du gøre sådan:

Private Sub Command1_Click()
  If Len(Text1) = 13 Then
    Text1 = Left$(Text1, 2) & " " & Mid$(Text1, 3, 2) & " " & Mid$(Text1, 5, 2) & " - " & Right$(Text1, 4)
  End If
End Sub

Tak for indsatsen. Jeg kan bruge begge typer koder, men jeg syntes at sjh's kode er lettest at arbejde med.

Tak.

nicolaus