Private Sub sevText1_GotFocus()
  ' nach Komma suchen
  Dim nPos As Long
  nPos = InStr(sevText1.Text, ",")
  If nPos > 0 Then sevText1.SelStart = nPos
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de