So if you only want to split when there are six characters, surround my statement with an if/then that checks the Len() of your control, ie:
If Len(MyPostCodeControl) = 6 Then
MyPostCodeControl = Left(MyPostCodeControl,3) & " " & Mid(MyPostCodeControl,4,10)
End If
Joe Miller...