Declare Sub S_servo(byval Number As Byte , Countt As Byte)
Dim A As Byte
Dim B As Byte

B = 80
Call S_servo(1 , B)
End

Sub S_servo(byval Number As Byte , Byval Countt As Byte)

lcdlowline = str(number) + str(Countt)
A = lcdprint()

End Sub
Versuch doch mal Number und Countt mit Print auszugeben und lass lcdlowline erstmal weg, dann kannst du wenigstens sicher sein, dass es wirklich an der Übergabe liegt. Ich hatte mal ei ähnliches Problem, wo ich die ganze Zeit dachte, dass es an der Übergabe läge, tatsächlich lag es dann an einer unlogischen Macke von Bascsom dahinter.

MFG Moritz

MFg Moritz