在VB中，可以使用Mid函数来截取一个字符串的一部分。以下是一些示例：

截取从指定位置开始的一定长度的子串

Dim myString As String

myString = "Hello, world!"

' 从第7个字符开始截取5个字符

Dim subString As String

subString = Mid(myString, 7, 5)

MsgBox subString ' 输出 "world"

在这个示例中，我们首先定义了一个名为myString的字符串，并将其设置为“Hello, world!”。然后，我们使用Mid函数从第7个字符开始截取5个字符，保存到名为subString的变量中。最后，我们使用MsgBox函数显示该子串。

截取从指定位置开始的剩余部分

Dim myString As String

myString = "Hello, world!"

' 从第7个字符开始截取剩余部分

Dim subString As String

subString = Mid(myString, 7)

MsgBox subString ' 输出 "world!"

在这个示例中，我们使用Mid函数从第7个字符开始截取剩余部分（即从第7个字符到字符串结尾），保存到名为subString的变量中。最后，我们使用MsgBox函数显示该子串。

截取从左边开始的指定长度的子串

Dim myString As String

myString = "Hello, world!"

' 从左边开始截取5个字符

Dim subString As String

subString = Left(myString, 5)

MsgBox subString ' 输出 "Hello"

在这个示例中，我们使用Left函数从左边开始截取5个字符，保存到名为subString的变量中。

请注意，在以上示例中，Mid和Left函数的第一个参数都是要截取的字符串，第二个参数用于指定截取位置或长度。如果第二个参数被省略，则Mid函数默认从指定位置截取剩余部分，Left函数默认截取字符串的左侧部分。