Excel VBA StrConv関数 文字列を指定文字種に変換

Sub StrConv_test_01()
Dim str As String
str = "apple pie" '文字列を変数に代入

Debug.Print "はじめに vbUpperCase で"
Debug.Print str & " を vbUpperCase で大文字に変換"
str = StrConv(str, vbUpperCase)
Debug.Print (str) ' APPLE PIE

Debug.Print vbLf & "次は vbLowerCase で"
Debug.Print str & " を小文字に変換"
str = StrConv(str, vbLowerCase)
Debug.Print (str) ' apple pie

Debug.Print
Debug.Print vbLf & "次は vbProperCase で"
Debug.Print str & " を先頭を大文字に変換"
str = StrConv(str, vbProperCase)
Debug.Print (str) ' Apple Pie

Debug.Print
Debug.Print vbLf & "次は vbWide で"
Debug.Print str & " を全角文字に変換"
str = StrConv(str, vbWide)
Debug.Print (str) ' Ａｐｐｌｅ　Ｐｉｅ

Debug.Print
Debug.Print vbLf & "次は vbNarrow で"
Debug.Print str & " を半角文字に変換"
str = StrConv(str, vbNarrow)
Debug.Print (str) ' Apple Pie
End Sub

Sub StrConv_test_02()
Dim str As String
str = "あっぷるぱい" '文字列を変数に代入

Debug.Print "はじめに vbKatakana で"
Debug.Print str & " をカタカナに変換"
str = StrConv(str, vbKatakana)
Debug.Print (str) ' アップルパイ

Debug.Print vbLf & "次は vbHiragana で"
Debug.Print str & " をひらがなに変換"
str = StrConv(str, vbHiragana)
Debug.Print (str) ' あっぷるぱい

Debug.Print vbLf & "次は vbNarrow Or vbKatakana で"
Debug.Print str & " を半角のカタカナに変換"
str = StrConv(str, vbNarrow Or vbKatakana)
Debug.Print (str) ' ｱｯﾌﾟﾙﾊﾟｲ

Debug.Print vbLf & "次は vbWide Or vbHiragana で"
Debug.Print str & " を全角のひらがなに変換"
str = StrConv(str, vbWide Or vbHiragana)
Debug.Print (str) ' あっぷるぱい
End Sub

Sub StrConv_test_03()
  Dim i As Long
  Dim x() As Byte
  x = StrConv("Apple Pie", vbFromUnicode)
  For i = 0 To UBound(x)
    Debug.Print x(i)
  Next
End Sub

Sub StrConv_test_06()
  Dim str As String
  str = InputBox("文字列を入力してください")
  MsgBox "入力された " & str & " は " & vbCrLf & _
         StrConv(str, vbWide) & " すべて全角に変換されました"
End Sub