＞If .FileName.Substring(.FileName.Length - 4, 4) = ".html" Then

この部分、ファイル名の右から4文字が".html"の時、っていうifですが、
".html"てのは、5文字なんだから、
If .FileName.Substring(.FileName.Length - 5, 5) = ".html" Then
しないとダメなんじゃね？