'Schleife durchlaufen bis Pos erreicht oder Abbruch lokal/global
    Do Until boPosOk Or m_boEnd Or boEnd
 
      'warten auf Erreichen der Position
 
      ' Hier das Einlesen der aktuellen Koordinaten, welche ich über Textboxen 
      ' eingeben kann
      ActualX = Val(txtActX.Text)
      ActualY = Val(txtActY.Text)
 
      'Hier der Vergleich,
      'üblicherweise vergleicht man Fließkommazahlen nicht auf "=",
      'sondern man prüft, ob die Diffferenz einen bestimmten Schwellert (eta)
      'erreicht oder unterschreitet, das passiert hier
      boPosOk = Abs(Y_Axis - ActualY) < eta
      boPosOk = boPosOk Or Abs(X_Axis - ActualX) < eta
      DoEvents 'Kontrolle an das System zurück geben, sonst geht nix mehr
    Loop

Gruß
Dirk

--
?Get it right the first time