' substr.vb Imports System Imports Microsoft.VisualBasic Class SubStringSample Shared Sub Main() Dim str As String = "先頭の文字列真ん中の文字列末尾の文字列" '0 1 2 3 4 5 6 7 8 9 101112131415161718 Dim leftStrVB As String = Left(str, 6) Dim leftStr As String = str.Substring(0, 6) Console.WriteLine(leftStrVB) ' 出力:先頭の文字列 Console.WriteLine(leftStr) ' 出力:先頭の文字列 Dim centerStrVB As String = Mid(str, 7, 7) Dim center As String = str.Substring(6, 7) Console.WriteLine(centerStrVB) ' 出力:真ん中の文字列 Console.WriteLine(center) ' 出力:真ん中の文字列 Dim rightStrVB As String = Right(str, 6) Dim rightStr As String = str.Substring(13) Console.WriteLine(rightStrVB) ' 出力:末尾の文字列 Console.WriteLine(rightStr) ' 出力:末尾の文字列 End Sub End Class ' コンパイル方法:vbc substr.vb