Visual Basic 6 - selezionare text

di questo codice devi modificare il selstart

si modificare il selstart mi sembrava la cosa piu' giusta....ma il problema era un altro, come faccio a saper il selstart che ha l'inizio della riga?....questo e' il problema.....

Private Sub SelezionaRiga(riga As Integer)
Dim i As Integer, k As Integer, ultimo As Integer
1
i = i + 1
i = InStr(i, Text1.Text, vbCrLf)
If i > 0 Then
k = k + 1
If k = riga Then
Text1.SelStart = ultimo
Text1.SelLength = i - ultimo - 1
Else
ultimo = i
GoTo 1
End If
End If
End Sub