Module Module1
Sub Main()
Dim strTmp As String = "abcdefg某某某"
Dim i As Integer = System.Text.Encoding.Default.GetBytes(strTmp).Length
Dim j As Integer = strTmp.Length
Console.WriteLine(i) '13
Console.WriteLine(j) '10
Console.ReadKey()
End Sub
End Module