空白等の除去

環境/言語:[Windows XP、VB.NET、Framwork3.5 SP1]
分類:[.NET]

webから読み取った要素から、Regex.Replaceを利用して
空白等余分な要素を除去するコードがあります。
ただ、何度も同じ様な内容なので、纏める事が出来ないか…と思っております。
もし上手い方法がありましたらご教示願います。

・Webから読み取った内容
dim Html as string = IO.File.ReadAllText("c:/DATA.html", Encoding.GetEncoding("shift-jis"))
・除去するコード
Dim sHtml As String = Regex.Replace(Html, "^\s*$\r\n", String.Empty, RegexOptions.Multiline)
sHtml = Regex.Replace(sHtml, "^\s*$\r", String.Empty, RegexOptions.Multiline)
sHtml = Regex.Replace(sHtml, "^\s*$\n", String.Empty, RegexOptions.Multiline)
sHtml = Regex.Replace(sHtml, "^(\s+)", String.Empty, RegexOptions.Multiline)
sHtml = Regex.Replace(sHtml, "^(\r\n)", String.Empty, RegexOptions.Multiline)
sHtml = Regex.Replace(sHtml, "^(\r)", String.Empty, RegexOptions.Multiline)
sHtml = Regex.Replace(sHtml, "^(\n)", String.Empty, RegexOptions.Multiline)

■No31238に返信(XHGさんの記事)

これでどうでしょう？
Dim sHtml As String = Regex.Replace(Html, "^(\s*(\r|\n|\r\n)?|\s+)", String.Empty, RegexOptions.Multiline)

■No31239に返信(shuさんの記事)

ありがとうございます。
動きも想定通りになりました！