Seems you need a little more VBA, so I have created the code below that incorporates the method described at the link. I do not know how you intend to use this, so the FormatCurrentCellPrice sub is just there as a proxy for your code that will point to the cell you want to format.
The FormatPrice sub determines the location and length of the text you want to bold. It assumes the example you provided where the text is prefixed with '@' and divided by spaces. It also assumes you pass in only a single cell.
Finally, the MakeBold sub is stolen from the other answer to actually set the format for the characters. Since you only want to bold this text, I have removed all the other formatting from the other answer.
Sub FormatPrice(c As Range)
Dim StartPos As Integer
Dim EndPos As Integer
StartPos = InStr(c.Value, "@") + 2
EndPos = InStr(StartPos, c.Value, " ")
EndPos = InStr(EndPos + 1, c.Value, " ")
MakeBold StartPos, EndPos - StartPos
Sub MakeBold(StartPos As Integer, charCount As Integer)
With ActiveCell.Characters(Start:=StartPos, Length:=charCount).Font
.FontStyle = "Bold"