Sub test()
MsgBox StrConv("ABC123$", vbWide) '全角文字に変換する MsgBox StrConv("ＡＢＣ１２３＄", vbNarrow) '半角文字に変換する
End Sub
