■ 半角カナをそのまま全角にする
半角カナを全角カナに変換する場合には StrConv 関数を使用しますが、そのまま使用すると濁点などが自動的に連結されてしまいます
濁点などを半角カナと同じように１文字で表現したい場合には、１文字ずつ全角カナに変換します
Dim w_str1            As String         ' 変換前文字列
Dim w_str2            As String         ' 変換後文字列
Dim w_idx             As Integer        ' インデックス

    w_str1 = "ﾀﾞｸﾃﾝﾉﾏｻﾞｯﾀﾊﾝｶｸﾓｼﾞ"
    w_str2 = ""

    For w_idx = 1 To Len(w_str1)

        ' 半角を全角に変換する
        w_str2 = w_str2 & StrConv(Mid$(w_str1, w_idx, 1), vbWide)

    Next w_idx