Visual Basic 6 - Textbox solo prima riga

Ciao a tutti!

Espongo il mio problema.
Ho un Textbox con proprietà multiline, e vorrei che venisse presa in considerazione solo la prima linea, tipo "" se prima linea = "aaa" allora succede una cosa ""

Se non mi sono spiegato ditelo.
grazie

ecco un codice d'esempio:

Private Sub Command1_Click()
Dim i As Integer
i = InStr(1, Text1.Text, vbCrLf)
Text1.SelStart = 0
Text1.SelLength = i - 1
'per lavorare con il testo selezionato usa text1.SelText. Esempio:
If Text1.SelText = "ciao" Then
MsgBox "ciao"
End If
End Sub

Vedi qui:
pierotofy.it/pages/extras/forum/6/36810-trasferire_prima_riga_di_una_textbox_in_unaltra_textbox/

lol
ero sempre io che ho postato lo steso codice...(se me lo ricordavo mi risparmiavo la fatica di riscriverlo xD)

Già, mentre io allora ero ancora Normal User...

adesso basta