全角カナを半角カナに変換

全角のカナを半角のカナに変換しようと思った。
しかし、半角カナへの変換というので調べるとなかなか出てこない。
パソコン上で半角カナは、あまり使うべきではないと言われているからね。

しかし

携帯電話用のホームページを作るためのソフトを作っていたので、
半角カナに変換したかった。
なんのことはない

Zenkaku = "ポルシェＰｏｒｓｈｅ"

Hankaku = StrConv(Zenkaku, VbStrConv.Narrow)
といれると
Hankaku = "ﾎﾟﾙｼｪPorshe"となる
F8 のキーを押したときと同じことになる

もちろんこのStrConvは他にも変換できる

StrConv(Hankaku,VbStrConv.Wide)

だと全角になおしてくれる

小文字に変換
VbStrConv.lowercase

大文字に変換
VbStrConv.Uppercase

ひらながに
VbStrConv.Hiragana

かたかなに
VbStrConv.Katakana