Hola de nuevo, perdonar mi ignorancia pienso que esto quizás sea una pregunta absurda, causada por una escasez de conocimiento en el funcionamiento del tdbgrid, pero no he conseguido aprender mas.

Estoy haciendo un programa en el cual me exigen que introduzca el testo en una columna del tdbgrid y que cuando esta supere un determinado numero de caracteres se cree otra línea en la cual se inserte la ultima palabra que exceda el testo en la línea anterior, no se me ocurre otra cosa que esta:

Dim TEXTOLINEA As String
Dim TEXTOLINEA2 As String

Dim i As Single
Dim b As Single




If Len(TDBGrid1.Columns("descripcion")) > 59 Then
TEXTOLINEA = TDBGrid1.Columns("DESCRIPCION")
For i = 1 To 60
If Mid(TEXTOLINEA, i, 1) = " " Then b = i
Next i

TEXTOLINEA = Left(TEXTOLINEA, b)
TEXTOLINEA2 = Right(TDBGrid1.Columns("DESCRIPCION"), 60 - b)

TDBGrid1.Columns("DESCRIPCION") = TEXTOLINEA
GrabarLinea
TDBGrid1.MoveLast
TDBGrid1.Columns("DESCRIPCION") = TEXTOLINEA2
TDBGrid1.Row = TDBGrid1.Row
TDBGrid1.Col = 11

End If



Bueno hasta aqui todo funciona a la perfección, el problema es que cuando crea la nueva linea y añade la ultima palabra de la lnea anterior esta aparece seleccionada, y entonces al seguir introduciendo texto esta desaparace.

No se si me he explidado bien, mi pregunta es la siguiente ¿como hacer para que no aparezca el testo seleccionado?

Salu2 y gracias de antemano a todos por molestaros en hecharme una mano.