Update Query: Insert a space into a String (1 Viewer)

I have a field that stores Alphanumeric characters.
It has a limit of 18 characters.
I want to run an Update Query.
I want the Query to insert a space into the 5th spot.

In other words:

The current listing looks like:

FIELD
ES-98-00
ES-87-14-A
ES-83-45
ES-78-13

(just a random assortment)
I wanna run the query so they now look like:

FIELD
ES-98 -00
ES-87 -14-A
ES-83 -45
ES-78 -13

Can you help me out?!

In the update type:

Left([FieldName],5) & " " & Mid([FieldName],6)