VBA excel characters not printing

Question

Dim HKD As String

HDK = "K[$$-409] #,##0.00;[Red]-(K[$$-409] #,##0.00)" 
print HKD

prints K$ 0.00

HKD = "HK[$$-409]