CONNAITRE LA COLONNE COURANTE D'UN TEXTBOX, CAD LE NOMBRE DE CARACTERE ENTRE LE BORD GAUCHE ET LE CURSEUR

'Afficher le numero de colonne où est le curseur dans Text1

Dim NColonne As Integer
Dim i As Integer
NColonne = 1

'Le problème c'est qu'il fait tout le TextBox jusqu'au curseur et que 
'dès qu'il 'voit un passage à la ligne il revient à 0. Imaginez qu'il y en ait 
'200 et ce code est bon pour la poubelle

For i = 1 To Text1.SelStart 'Il part du début du textbox et va jusqu'au curseur
    NColonne = NColonne + 1 'à chaque caractère il fait plus 1 puisque 
    '1 caractère = 1 colonne
    If Mid(Text1.Text, i, 1) = Chr(10) Then NColonne = 1 'Mais si il passe à 
    'la ligne alors il revient à 0
Next