vb6.0 转换到vb.net的问题 取需要的字符串的问题

[mqy_yz]

vb中的代码:
Private Sub Command1_Click()
Dim aa As String
Dim bb As String
aa = "中国123人民"
bb = MidB$(aa, 1, 5)
End Sub
结果是:中国1

vb.net 中如何实现相同的结果。

[bw555]

下面是vb.net帮助中的原话，直接用函数估计是不行了

注意 Visual Basic 早期版本中的 MidB 函数返回字节形式（而不是字符形式）的字符串。它主要用于在双字节字符集 (DBCS) 应用程序中转换字符串。所有 Visual Basic .NET 字符串均采用 Unicode 的形式，并且不再支持 MidB。

[knightwayne]

Private Sub Command1_Click()
Dim aa As String
Dim bb As String
aa = "中国123人民"
bb = aa.substr(0, 4)
End Sub

[mqy_yz]

knightwayne 你的回答的结果和我要的不一样吧

[VINCNET003]

Dim str As String
Dim Start As Integer
Dim Length As Integer
Dim returnValue As String

returnValue = Strings.Mid(str, Start, Length)