Dim multiSearchPattern As New List(Of String)(New String() {".html", ".htm", ".xml"})
For Each filePath As String In Directory.GetFile("C:\temp","*.*",SearchOption.AllDirectories)
'Check Extension here
If multiSearchPattern.Contains(Path.GetExtension(filePath)) Then
Console.WriteLine(filePath)
End If
Next filePath