MID表示取出字符串
上面程序表示在aabbcc中又第3个字符串开始，连续取出2个字符串。

VB.NET Mid函数的使用方法详细介绍

——Mid函数从字符串中返回指定数量的字符。
格式：

  Mid(string, start[, length])

理解：
返回string中从start开始的后面的length长度的字符串

参数解释：

注：
start需注意的是如果start超过了string的字符数，Mid 返回零长度字符串 ("")。
length如果省略或length超过文本的字符数（包括start处的字符），将返回中从start到末尾的所有字符。

实例操作：

Dim MyString, FirstWord, LastWord, MidWords  

MyString = "Mid Function Demo" ' 建立一个字符串。  

FirstWord = Mid(MyString, 1, 3) ' 返回 "Mid"  

LastWord = Mid(MyString, 14, 4) ' 返回 "Demo"  

MidWords = Mid(MyString, 5) ' 返回 "Funcion Demo"

VB在处理字符串的时候，常常会用到str1 = str1 & str2这种方法，就是将字符串str2加入到str1的尾部，
在字符串比较短的时候（长度<1万）的时候，执行速度还是很快的，当字符串比较长的时候，这种方法
就非常费时了，巧用Mid函数，可以使处理长字符串速度提高上千倍，以下是测试结果。

Option Explicit

Private Declare Function GetTickCount Lib “kernel32” () As Long

Private Sub Command1_Click()
Dim i As Long
Dim str1 As String
Dim str2 As String
Dim Length As Long
str2 = “地势坤”
Dim starttime
starttime = GetTickCount
For i = 1 To 100000
str1 = str1 & str2
Next
Dim usetime
usetime = GetTickCount - starttime
Print usetime & “ms”
End Sub

Private Sub Command2_Click()
Dim i As Long
Dim str1 As String
Dim str2 As String
Dim Length As Long
str1 = String(10000000 * 3, Chr(0))
str2 = “天行健”
Dim starttime
starttime = GetTickCount
Length = 0
For i = 1 To 10000000
Mid(str1, Length + 1) = str2
Length = Length + Len(str2)
Next
Dim usetime
usetime = GetTickCount - starttime
Print usetime & “ms”
End Sub

我电脑配置：Win7 64位，奔腾G4400，4G内存