Dim result(99) As String
Dim answer As List
answer.Initialize
Dim M As Matcher
M = Regex.Matcher("(<!--).*(-->)",String1) 'String1 is the text you are searching
Do While M.Find
i = i + 1
result(i) = M.Match.Replace("<!--", "").Replace("-->", "")
answer.Add(result(i))
Loop