Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _
  hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
 
Const LB_GETTEXTLEN = &H18A
Const LB_GETTEXT = &H189
 
Private Sub Command1_Click()
  Dim lIndex As Long
  lIndex = 51500
  MsgBox HoleText(Text1.Text)
End Sub
 
Private Function HoleText(i As Long) As String
   Dim lenText As Long
   Dim Buffer As String
   lenText = SendMessage(List1.hWnd, LB_GETTEXTLEN, i, 0)
   If lenText > 0 Then
      Buffer = String(lenText, vbNull)
      lenText = SendMessage(List1.hWnd, LB_GETTEXT, i, ByVal Buffer)
      HoleText = Buffer
   End If
End Function