全角文字を半角にする

StrConv("ほげホゲＨｏｇｅ", vbNarrow)    'ほげﾎｹﾞHoge