How to check postal code format for user form text box

Change

ws.Cells(iRow, 1).Value = txt_PC.Value

to

    ws.Cells(iRow, 1).Value = Left$(Replace$(Me.txt_PC.Value, " ", ""), 3) & _
        " " & Mid$(Replace$(Me.txt_PC.Value, " ", ""), 4)

Thank you so much Jindon for all your help and patience! I've learned so much! Hope others will see this as valuable as I did!!