Unicode-String-Literale in VBA

Ich möchte (in einem VBA-Klassenmodul) einige private konstante Zeichenfolgen deklarieren, die japanische Zeichen enthalten. Gibt es einen Weg zu konstruierenString Literale (oder Kombinieren von Literalen auf eine Weise), die als Initialisierer in a akzeptiert werden könnenConst Erklärung? d.h. so etwas wie:

Private Const MY_CONST = ...

oder

Private Const MY_CONST As String = ...

Ich verwende MS Excel v14.0.6112.5000 (MS Office Professional Plus 2010).

Waswird nicht funktionieren:

Einfügen der japanischen Zeichen direkt in ein String-Literal (z.... = "変数") weil der VBA-Editor mit den Zeichen herumwirbelt;VerwendenChrW() oderChrW$() (z.B.... = ChrW$(22793) & ChrW$(25968)), da Funktionsaufrufe nicht erlaubt sindConst Initialisierer.

WasWürde mir nicht gefallen:

Fälschung derConst durch schaffenPrivate Property Get Rückgabe der Zeichenfolge, da die Zeichenfolge jedes Mal neu erstellt wird, wenn ich auf die Eigenschaft zugreife (und das ist verwirrend und hässlich ... aber in Ordnung, die letzten beiden Dinge sind eher Geschmackssache).

Antworten auf die Frage(2)

Ihre Antwort auf die Frage