VB中半角转全角方法

StrConv(string, conversion, LCID)
半角转全角：vbWide
全角转半角：vbNarrow
TT=StrConv("abcd123",vbWide)
==>TT="ａｂｃｄ１２３"