Private Sub Text2_DragOver(Source As Control, X As Single, Y As Single, State _
  As Integer)
Dim CPos  As Long
Text2.SetFocus
 
'cursor an rihtig Stelle
CPos = Len(Text2.Text) / Form1.TextWidth(Text2.Text) * X
If CPos > Len(Text2.Text) Then
  'cursor an letzte Stelle
  CPos = Len(Text2.Text)
ElseIf CPos < 0 Then
  'cursor an erste Stelle
  CPos = 0
End If
 
Text2.SelStart = CPos
End Sub