■

‥‥、よく見ると、.Text = .Textをやるとそのたびに空行が増えるな、コレ。
まぁ自力で何とかしてくだちい。

多分、Return sBuff.Substring(0, sBuff.Length - vbCrLf.Length) と書けばいいんじゃなイカ。