'変数宣言 Dim str As String = "アイウエオ" '文字列を全角に変換 str = StrConv(str, Microsoft.VisualBasic.VbStrConv.Wide) str = "アイウエオ" '文字列を半角に変換 str = StrConv(str , Microsoft.VisualBasic.VbStrConv.Narrow) str = "アイウエオ"