vb.net 截取字符串

     Private   Sub Test_Load() Sub Test_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim str As String = _
        "中abc中国"
        ' 1 2345 6           string count of vb6
        ' 0 1234 5           string count of .net

        Label1.Text = ""
        'left
        Dim leftStrVB As String = Microsoft.VisualBasic.Left(str, 5)
        Dim leftStr As String = str.Substring(0, 5)
        Label1.Text &= "leftStrVB   is " & leftStrVB & vbCrLf                'leftStrVB is 中abc中
        Label1.Text &= "leftStr     is " & leftStr & vbCrLf                        'leftStr is 中abc中
        'center
        Dim centerStrVB As String = Microsoft.VisualBasic.Mid(str, 2, 4)
        Dim centerStr As String = str.Substring(1, 4)
        Label1.Text &= "centerStrVB is " & centerStrVB & vbCrLf      'centerStrVB is abc中
        Label1.Text &= "centerStr   is " & centerStr & vbCrLf              'centerStr is abc中
        'right
        Dim rightStrVB As String = Microsoft.VisualBasic.Right(str, 5)
        Dim rightStr As String = str.Substring(1)
        Label1.Text &= "rightStrVB  is " & rightStrVB & vbCrLf            'rightStrVB is abc中国
        Label1.Text &= "rightStr    is " & rightStr & vbCrLf                    'rightStr is abc中国

    End Sub