こんにちはまた投稿させていただきます。
まさにこんな感じのテキストボックスを使って(エンターを押すと改行する)
テキストボックスに書かれた内容をすべて変数に格納してSQL SERVERにインサートして
それをHTMLに出力する、というのをやっているのですが改行されたデータを変数に格納は
書かれたデータそのまま入るのですが、データベースにインサートされたとき一行目しか
登録されません。

やりたい事は、改行したデータをなにかメソッドを使って判定してテキストボックスの表示では
書いたとうりになっていて、インサートされたデータは一行で登録、
そしてHTMLに出力するときは入力されたとうりと言う感じでやりたいのです。
教えてほしい事は何か入ると判定されるようなそんな都合のいいメソッドはありませんでしょうか？
お願いします。

質問の意味がよくわかりませんが、
Enterキーが押されたとき何かをしたいのならKeyPressイベント、
TextBoxの表示内容が変化したときに何かをしたいのならChangeイベント
に処理を記述することで実現できます。

テキストデータにHTML タグを付加して拡張子を　HTMにして保存すのでは
だめですか？

Private Sub Command1_Click()
    intFileNo = FreeFile
    Open "Sample.htm" For Output As #intFileNo
    Text1.Text = "<PRE>" & Text1.Text & "</PRE>"
    Print #intFileNo, Text1.Text
    Close #intFileNo
End Sub

又はExcelやWordの機能を利用する

ありがとうございました。
試してみます。