Function getStrBetween(Str,StartStr,EndStr)
StartStrPos = Instr(Str, StartStr)+Len(StartStr)
EndStrPos = Instr(Str,EndStr)
Length = EndStrPos - StartStrPos
Res= Mid(Str,StartStrPos,Length)
getStrBetween = Res
End Function
Str = "如何获取两个字符串之间的字符串?"
StartStr ="获取"
EndStr = "字符串"
Res = getStrBetween(Str,StartStr,EndStr)
Msgbox Res