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
 
Private Const EM_GETLINE = &HC4
Private Const EM_GETLINECOUNT = &HBA
 
Private Const MAXCHARPERLINE = 255
 
Private Sub Command1_Click()
   Dim n As Long
   n = SendMessage(Text1.hwnd, EM_GETLINECOUNT, 0, ByVal 0)
   If n = 0 Then Exit Sub
   ' Erste Zeile ausgeben (nullbasierend!)
   MsgBox GetTextBoxLine(Text1.hwnd, 0)
 
End Sub
 
Private Function GetTextBoxLine(ByVal hwnd As Long, ByVal nPos As Long) As _
  String
    Dim sBuffer As String
    sBuffer = Space(MAXCHARPERLINE)
 
    SendMessage hwnd, EM_GETLINE, nPos, ByVal sBuffer
    GetTextBoxLine = Trim(sBuffer)
End Function