How can I use "฿" in VBA code

EG:.
Range("Artwork_Anchor") = Mid(Cells((Dte) + 2, 1).Value, InStrRev(Cells((Dte) + 2, 1).Value, "$AUD") + 4)

So instead of $ i want ฿