Function GetRegExResult(strInputData As String) As String
Dim Match, Matches
Dim RegExp As Object
Dim strMatchesFile As String 
Dim sRegPath As String
Dim sRegImageFile As String

sRegPath = ActiveDocument.Path
sRegImageFile = sRegPath + "\ImageNames.txt"

    strMatchesFile = sRegImageFile
    Set RegExp = CreateObject("VBScript.RegExp")
    With RegExp
        .Global = True
        .IgnoreCase = True
        .Pattern = "<img\s*src=""([^""]*)"""
    End With

    Set Matches = RegExp.Execute(strInputData) ' Execute search.
    For Each Match In Matches
Dim strMatchOrig As String
Dim intMatchLength As Integer
intMatchLength = Len(Match)
intMatchLength = intMatchLength - 11
strMatchOrig = Match
strMatchOrig = Mid(strMatchOrig, 11, intMatchLength)
        hFile = FreeFile
        Open strMatchesFile For Append As #hFile
Print #hFile, "<Uses>" + vbNewLine _
+ "<FileName>" + strMatchOrig + "<" + Chr(47) + "FileName>" + vbNewLine _
+ "<MD5>456789<" + Chr(47) + "MD5>" + vbNewLine _
+ "<" + Chr(47) + "Uses>"
        Close #hFile
    Next
End Function