Visual Basic para Aplicaciones - Contar lineas y columna en un texto

Hola, agradecere tu valiosa ayuda, komo haria para recuperar el numero de fila y de columna de un archivo de texto dentro de un control TextBox u otro control komo el RichTextBox, tal komo lo hace el Word de Office, lo puedo hacer con un Api?, la verdad ke tengo dificultades para resolver esta inquietud. Gracias

Asi es, tienes que usar API...

'Esta es la declaracion de la funcion
Public Declare Function SendMessageLong Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Long) As Long

'Esta es la funcion que yo uso
Public Function Posicion(ByVal Manejador As Long, ByVal Pos As Long) As String
Dim Linea As Long
Dim Col As Long
Const EM_LINEFROMCHAR = &HC9
Const EM_LINEINDEX = &HBB

Linea = 1 + SendMessageLong(Manejador, EM_LINEFROMCHAR, Pos, 0&)
Col = 1 + Pos - SendMessageLong(Manejador, EM_LINEINDEX, Linea - 1, 0&)
Posicion = "Lin: " & Linea & ", Col: " & Col

End Function

Tienes que pasarle HWND del control que te interese TextBox o RichTextBox y la posicion del cursor, por ejemplo...

'Aqui muestro la posicion en Fila y Columna en un panel de una barra de estado
stbInfo.Panels(2).Text = Posicion(rtfEditor.hwnd, rtfEditor.SelStart)