This is a workaround ... but it works!
Left(Trim([FurnaceModelNumber]),1) & Replace(Mid(Trim([FurnaceModelNumber]),2,1),"*","M") & Mid(Trim([FurnaceModelNumber]),3,20)
The TRIM function is included just in case you have any FurnaceModelNumber codes with leading blanks.
Hope it works for...