Gut jetzt ist das auch gelöst aber das nächste Problem ist schon da die lib ist so gut wie fertig aber ich habe einen Fehler in der Go-Sub mit dem Weg
kann mir da einer Helfen? Bascom Schreibt das es anscheinend die eigentlich viel kleinere Variable nicht in die Große passt.

Sub Go(byval Speed As Byte , Byval Dis As Byte)
Call Moveatspeed(speed , Speed)
Encleft = 0
Encright = 0
Local Relweg As Long
Local Strecke As Integer
Relweg = Encleft + Encright
Relweg = Relweg / 2
Strecke = Dis / 12


Do
Call Geradefahren
Loop Until Relweg > Strecke

Call Moveatspeed(0 , 0)
Waitms 10
End Sub

Danke