'How about this

SVar = "dog cat monkey dog horse dog"
SVar = """" & Mid(SVar, InStr(SVar, " "), InStrRev(SVar, " ") - InStr(SVar, " ") + 1) & """"

MsgBox SVar

'OR<<<<<<<<<<<<<

For Each LVar In Split(SVar, " ")
AVar = AVar & Mid(CStr(LVar), 2, Len(CStr(LVar)) - 2) & " "
Next LineVar

MsgBox AVar