VB Code:
  1. Txt.Text = Replace(Txt.Text,vbCrLF,"<br>")

Then input Txt.Text into your Database as normal