Spulciando in giro ho trovato un esempio in C#, che semplificato e tradotto in VB.NET potrebbe essere più o meno così (non l'ho provato):
codice:
Private Function CurrentColumn(tb As TextBox) As Integer
    Return tb.SelectionStart - tb.GetFirstCharIndexOfCurrentLine() + 1
End Function
 
Private Function CurrentLine(tb As TextBox)
    Return tb.GetLineFromCharIndex(tb.SelectionStart) + 1
End Function
Non c'è un evento specifico che ti avvisa quando il caret è stato spostato, quindi dovrai usare i vari KeyDown, Click eccetera.

Ciao paisà