Var textbox

[keeper76]

Ho un textbox multiline, dovrei prendere il contenuto dell'ultima riga e assegnare il valore ad una variabile, come posso fare ?

[keeper76]

nessuno mi sa aiutare ? Non ci credo.

[Pieruccio]

Se le righe non sono delimitate da un carattere specifico non credo si possa fare.

[Foga27News]

Il carattere specifico sarebbe il vbNewLine.
Prova così:

Private Sub Command1_Click()
Dim Penultimo As Integer, dove As Integer
dove = 1
Do While InStr(dove, Text1, vbNewLine) <> 0
    Penultimo = dove
    dove = InStr(dove, Text1, vbNewLine) + 1
Loop
MsgBox Right(Text1, Len(Text1) - dove)
End Sub

[ans]

Con SendMessage prima ti fai ritornare quante righe ha la textbox e poi sempre con SendMessage puoi leggere l'ultima riga (se non ricordo male puoi solo passare l'indice della riga da leggere)