Private Sub Command1_Click()
    Dim posEnde As Long
    Dim posAktuell As Long
 
    posEnde = Len(rtf.Text)
    MsgBox "Zeilen insgesamt: " + CStr(rtf.GetLineFromChar(posEnde) + 1)
 
    posAktuell = rtf.SelStart
    MsgBox "Zeile aktuell: " + CStr(rtf.GetLineFromChar(posAktuell) + 1)
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1