How to solve VBA or VB6.0 input "Ø" becomes "?"

Hello everyone! Ask how to solve VBA or VB6.0 input "Ø" becomes "?"。

SolidworksApi/macros