Visual Basic - LISTBOX y FINDSTRING

Hola, con el siguiente código, paso de un listbox a otro un texto previamente introducido en un textbox, es decir busca el texto del texbox en el listbox1 y lo pasa al listbox 2, pero me devuelve el nº de línea, yo quería que me devolviese la línea completa, es decir el texto completo de la línea encontrada.

Option Explicit

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Private Const LB_FINDSTRING = &H18F

Private Sub Command1_Click()
Dim retval As Long
retval = SendMessage(List1.hwnd, _
LB_FINDSTRING, -1, ItemText.Text)
List2.AddItem retval
End Sub

¿Cómo lo puedo hacer?

Gracias

exactamente, esa llama API sirve para darte el index donde se encuentra el texto que buscas.
para agarrar el texto tienes que obtenerlo desde su propiedad List
ie:
Cadena = Lista.List(retval)