vb 截取字符串 部门2001小计 中的2001

您可以使用 VB 的字符串处理函数来截取字符串中的部分内容。在您的例子中，您可以使用 `Mid` 函数来提取 "部门2001小计" 中的 "2001"。以下是示例代码：

Dim str As String = "部门2001小计"
Dim result As String

result = Mid(str, 3, 4) ' 从第3个字符开始截取4个字符

MsgBox(result) ' 输出结果为 "2001"

在上述代码中，`Mid` 函数的第一个参数是要截取的字符串，第二个参数是要开始截取的位置，第三个参数是要截取的字符数。

请注意，上述代码仅适用于您提供的特定示例字符串。如果字符串的格式或长度发生变化，您可能需要相应地修改代码。