Public Const EM_GETLINECOUNT = &HBA

deve diventare:

Public Const EM_GETLINE = &HC4

Mentre nel form, la routine Agisci_Click deve diventare:

Private Sub Agisci_Click()
    Dim strRiga As String
    Dim lngLunghezzaRiga As Long
    strRiga = String(255, Chr(1))
    lngLunghezzaRiga = SendMessage(Prova.hwnd, EM_GETLINE, 2, ByVal strRiga)
    NumRighe.Text = Left(strRiga, lngLunghezzaRiga)
End Sub

Per prima cosa è stata dichiarata una stringa di testo ed è stata riempita con una sequenza di 255 caratteri uguali  una parte dei quali sarà rimpiazzata dal testo della riga che verrà richiesta (gli altri andranno scartati). Fatto questo viene richiamata la funzione SendMessage, passandogli sempre l'handle della casella di testo Prova, l'identificativo del messaggio EM_GETLINE e in seguito il numero della linea che si desidera ottenere (dove 0 indica la prima, 1 la seconda e così via) e infine un riferimento alla stringa che dovrà contenere il risultato. SendMessage in questo caso restituirà il numero di caratteri copiati in strRiga: per questo nel mostrare la stringa di risultato nella casella NumRighe viene utilizzata la funzione Left.