ListBox, textbox y BD

[pepelo]

Como estan, necesito de su sabiduria!!!
Tengo un sistemita que adm. fichas medicas.

Basicamente funciona asi
Cargo la ficha en un txtbox (multiline) y lo grabo en la BD, cuando quiero consultar todas las fichas lo muestro en un listbox y me muestra todo

El problema es que si en el txtbox cargue varias lineas me muestra el reg. en una linea y separa los enter con 2 [].
Como puedo hacer para que lo muestre separado?
A mi se me ocurrio grabar en la bd varios registros segun la la cant. de caracteres (ej. cada 80) o por cada enter. El tema es que no se como

Les paso los codigos

HISTORIAL
LstHis.Clear
Codigo = frmPacientes.TxtCod
Set RsHisto = New Recordset
ssql1 = "select Cod_Pa, Historia, (Left(Fecha,3) & Mid(Fecha,4,3) & " _
& "Right(Fecha,2)) as Fecha, Detalle from historias " _
& "where Cod_Pa = " & val(Codigo) & " and Estado= 'A' order by Historia "
RsHisto.Open ssql1, CnSAHC, adOpenDynamic, adLockOptimistic
If RsHisto.BOF And RsHisto.EOF Then
LstHis.AddItem "Ficha Vacia"
Else
LstHis.AddItem RsHisto!Historia & " - " & RsHisto!Fecha & " - " & RsHisto!Detalle
RsHisto.MoveNext
Do While Not RsHisto.EOF
LstHis.AddItem RsHisto!Historia & " - " & RsHisto!Fecha & " - " & RsHisto!Detalle
RsHisto.MoveNext
Loop
End If
RsHisto.Close
End Sub

ALTA

Codigo = frmPacientes.TxtCod
Set RsHisto = New Recordset
ssql1 = "select Historia from historias " _
& "where Cod_Pa = " & val(Codigo) & " order by Historia "
RsHisto.Open ssql1, CnSAHC, adOpenDynamic, adLockOptimistic
If RsHisto.BOF And RsHisto.EOF Then
TxtCodHis = 10
Else
RsHisto.MoveLast
Codigo = RsHisto!Historia
Codigo1 = val(Codigo) + 10
TxtHis.SetFocus
TxtCodHis = Codigo1
End If
RsHisto.Close

A partir de aca compruebo y grabo
If TxtHis = "" Then
Men = MsgBox("Complete la ficha nueva del Paciente", vbExclamation, "Campo Incompleto")
TxtHis.SetFocus
Exit Sub
End If
Fecha = Format$(Date, "dd/mm/yy")
CodPac = val(frmPacientes.TxtCod)

On Error GoTo ErrTrans
CnSAHC.BeginTrans
ssql = "insert into historias (Cod_Pa, Historia, Fecha, Detalle, cod_me, Estado) " _
& " values ('" & CodPac & "', '" & Histo & "','" & Fecha & "','" & TxtHis & "'" _
& " ,'" & Medico & "', 'A')"
CnSAHC.Execute ssql
CnSAHC.CommitTrans
TxtCodHis = ""
TxtHis = ""
CargaHis
Exit Sub

ErrTrans:
If Err.Number <> 0 Then
mes = Err.Number
Men = MsgBox("Se produjo un error en la actualizacion de los datos", vbExclamation, "Error de Sistema")
CnSAHC.RollbackTrans
End If

Gracias por su ayuda.