Format TextBox to apply space within Post Code

[ipbr21054]

On my userform in TextBox6 will have a post code entered.

Some users do not apply a space within it.
Example

BS292HH It should be BS29 2HH
&
BS79JN it should be BS7 9JN

How can vba format the incorrect post code to the correct post code when the user has typed wrong

Thanks

 

[NoSparks]

does this work for you ?

Private Sub TextBox6_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    If Len(Me.TextBox6) > 0 Then
        Me.TextBox6.Value = Format(Replace(Me.TextBox6.Value, " ", ""), "@@@@ @@@")
    End If
End Sub

 

[ipbr21054]

It does thanks

 

[ipbr21054]

@NoSparks
Yesterday you advised a code for correcting a postcode that was typed incorrectly without the space.

I wish to use the same BUT for a telephone number

I have used the same code as shown below & changed the TextBox number BUT how do i take out the piece " ", ""),
The below works fine but looking to have the correct code for a later us.
Thanks

Private Sub TextBox2_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    If Len(Me.TextBox2) > 0 Then
        Me.TextBox2.Value = Format(Replace(Me.TextBox2.Value, " ", ""), "@@@@@ @@@@@@")
    End If
End Sub

 

[NoSparks]

This should be a new question
I don't know what would be or could be entered by the user and am not familiar with what resulting phone number should actually be in the UK

Locally (for me) phone numbers would be displayed as either
(250) 123-4567 or 250-123-4567 or 1-250-123-4567 if long distance

 

[ipbr21054]

Ah ok i will start a new post sorry

 

[NoSparks]

does this work for you ?

Private Sub TextBox6_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    If Len(Me.TextBox6) > 0 Then
        Me.TextBox6.Value = Format(Replace(Me.TextBox6.Value, " ", ""), "@@@@ @@@")
    End If
End Sub

Should add trim function

Private Sub TextBox6_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    If Len(Me.TextBox6) > 0 Then
        Me.TextBox6.Value = Trim(Format(Replace(Me.TextBox6.Value, " ", ""), "@@@@ @@@"))
    End If
End Sub

 

[ipbr21054]

Thanks i would not have thought to go change this as it was on another form.

Thanks again now altered