Option Explicit
 
Dim m_boEnd As Boolean
 
 
Private Sub Run()
 
  Dim sLine() As String
  Dim Y_Axis As Single
  Dim X_Axis As Single
 
  Dim ActualX As Single
  Dim ActualY As Single
 
  Dim boPosOk As Boolean
 
  Const c_Invalid As Single = -10 ^ 20 'ein ungültiger Wert
 
  Dim eta As Single
 
  Dim boEnd As Boolean
 
  Dim i As Long
 
  boEnd = False
 
  eta = 1 * 10 ^ -3
 
  sLine = Split(Text1.Text, vbNewLine)
 
  i = 0
 
  txtActY.SetFocus
 
  Do
 
    Y_Axis = c_Invalid
    X_Axis = c_Invalid
 
    boPosOk = False
 
    Select Case Left$(sLine(i), 1)
 
      Case "Y"
        Y_Axis = Val(Replace(Mid$(sLine(i), 2, 5), ",", "."))
        Text2.Text = "Y: " & Y_Axis
 
      Case "X"
        X_Axis = Val(Replace(Mid$(sLine(i), 2, 5), ",", "."))
        Text2.Text = "X:" & X_Axis
 
      Case "m"
        Text2.Text = "Ende"
        boPosOk = True
        boEnd = True
 
      Case "S"
        MsgBox "Werkzeugwechsel"
        boPosOk = True
 
    End Select
 
 
    Do Until boPosOk Or m_boEnd Or boEnd
 
      'warten auf Erreichen der Position
 
      ActualX = Val(txtActX.Text)
      ActualY = Val(txtActY.Text)
 
      boPosOk = Abs(Y_Axis - ActualY) < eta
      boPosOk = boPosOk Or Abs(X_Axis - ActualX) < eta
      DoEvents
    Loop
 
     i = i + 1
 
  Loop Until boEnd Or m_boEnd
 
 
  If m_boEnd Then
    Unload Me
  End If
 
 
End Sub

Gruß
Dirk

--
?Get it right the first time