Dim a為Long，b為Long，nStr為String
獲取兩個以s開頭的字符:
a = InStr(Text1。文本，“s”)
如果a & gt那麽0
nStr = Mid(Text1。文本，2)
MsgBox "以s ="& "開頭的兩個字符；nStr
如果…就會結束
獲取d和h之間的字符:
a = InStr(Text1。文本，“d”)
b = InStr(a + 1，Text1。文本，“h”)
如果a & gt0和b & gt那麽0
nStr = Mid(Text1。文本，a + 1，b - a - 1)
MsgBox "d和h = "& "之間的字符；nStr
如果…就會結束
末端接頭