http://ooltcloud.sakura.ne.jp/blog/201404/article_18005031.html
Regex.Replaceメソッドで半角カナのコード範囲の文字列をマッチさせ、第二引数にラムダ式を渡してStrConvで全角変換するという冴えたやり方。
''' <summary> ''' 半角カナを全角カナに変換 ''' </summary> Public Shared Function ToZenkakuKana(ByVal in_strData As String) As String ' 半角カナのコード範囲 Const HANKAKU_KANA_PTTERN As String = "[\uFF61-\uFF9F]+" Return Regex.Replace(in_strData, HANKAKU_KANA_PTTERN, Function(in_match As Match) As String ' 切り出した半角カナ部分を全角カナに変換 Return StrConv(in_match.ToString, VbStrConv.Wide) End Function) End Function