I have done with
below code
Str = "<table id="" ctl00_contentplaceholder1_tblstring2="" style="" cellpadding="" 0="" cellspacing=""><tr>"
Str += "<td id="" ctl00_contentplaceholder1_txtmsg1="" style="" left="">"
arrLines = Split(TxtMsg.Text, vbCrLf)
For Each strLine In arrLines
Str += "</td></tr>" & strLine & "<tr><td>"
Next
Str += "</td></tr><tr>"
Str+="</tr></table>"
May be This Will Help you