Escape Sequenz nach Unicode

[SittingDuck]

Aber das geht ja in meinem Beispiel nur bis $FFFF

Code:

UTF8.Encode(Chr(StrToInt('$01F618')));

Also ich habe einen UTF8 codierten String, da steckt ein Symbol drin was der Sequenz U+1F618 entspricht. Wie finde ich das z.B. mit der Pos Funktion?