囲まれた文字を抽出

<img src="/test/001.gif" border="0" style="略>
こんな感じのHTMLタグから「/test/001.gif」を取り出したい。

sURL = ExtractString(sTag, "src=""", """")

'囲まれた文字を抽出
Function ExtractString(strValue As String, strDelimiter1 As String, strDelimiter2 As String)
    
    Dim startNum As Integer, endNum As Integer
    
    startNum = InStr(strValue, strDelimiter1) + Len(strDelimiter1)
    endNum = InStr(startNum + 1, strValue, strDelimiter2)
    
    If startNum > 0 And endNum > 0 Then
        ExtractString = Mid(strValue, startNum, endNum - startNum)
    Else
        ExtractString = ""
    End If
    
End Function

色々なパターンでのテストはしてませんが、例題のimgタグから取得できてるので勘弁。

以上。