截取两个字符串中间的字符

'如果不存在则清空变量并退出
'在[从(A在S中首次出现的位置)到S结尾的字符串]中截取从A的下一位开始到[从(A在S中首次出现的位置)到S结尾的字符串]结尾的字符
'在MidStr中截取从开始到B首次出现位置之前的字符串

Public Function MidStr(S As String, A As String, B As String) As String '截取两个字符串中间的字符:截取S中从A与B之间的字符串
If InStr(S, A) < 1 Then MidStr = "": Exit Function
MidStr = Mid(Mid(S, InStr(S, A)), Len(A) + 1)
MidStr = Left$(MidStr, InStr(MidStr, B) - 1)
End Function

MidStr("12456789", "123", "789") '截取"123"与"789"之间的字符串