I couldn't figure out how to do it with a cell function. There doesn't seem to be a search from the right function.
Solution 1 would be to create a search or replace from the right function and use that.
Solution 2 is a custom function, such as below.
Hope this helps.
******************************
Function InjectSpaces(strOLDTEXT As String)
Dim strPIECES(3) As String
intLength = Len(strOLDTEXT)
intLAST5POS = InStrRev(strOLDTEXT, "5")
intDASHPOS = InStr(strOLDTEXT, "-")
strPIECES(1) = Left(strOLDTEXT, intDASHPOS - 1)
strPIECES(2) = Mid(strOLDTEXT, intDASHPOS + 1, intLAST5POS - intDASHPOS)
strPIECES(3) = Right(strOLDTEXT, intLength - intLAST5POS)
strNEWSTRING = Join(strPIECES, " ")
InjectSpaces = strNEWSTRING
End Function
******************************