Hallo zusammen

Ich blick einfach nicht hinter den Fehler und hoffe jemand kann mir helfen.

Code:
Declare Sub Fahren(pwm_l As Integer , Pwm_r As Integer , Ml_1 As Bit , Ml_2 As Bit , Mr_1 As Bit , Mr_2 As Bit)

Dim Entfernung_r As Integer
Dim Entfernung_l As Integer

If Entfernung_l < 100 Then
      If Entfernung_r < 100 Then
         If Entfernung_l < Entfernung_r Then
            Call Fahren(250 , 500 , 0 , 1 , 0 , 1)
         Else
            Call Fahren(500 , 250 , 0 , 1 , 0 , 1)
         End If
      Else
         Call Fahren(1000 , 500 , 1 , 0 , 1 , 0)
      End If
   Else
      If Entfernung_r < 100 Then
         Call Fahren(500 , 1000 , 1 , 0 , 1 , 0)
      Else
         Call Fahren(1000 , 1000 , 1 , 0 , 1 , 0)
      End If
   End If

Sub Fahren(pwm_l As Integer , Pwm_r As Integer , Ml_1 As Bit , Ml_2 As Bit , Mr_1 As Bit , Mr_2 As Bit)
   Portc.6 = Ml_1
   Portc.7 = Ml_2

   Portb.0 = Mr_1
   Portb.1 = Mr_2

   Pwm1a = Pwm_l
   Pwm1b = Pwm_r
End Sub
Und hier die Fehlermeldungen die ich nicht versteh:
Error : 248 Line : 158 BYVAL should be used in declaration [[ 112]] , in File : C:\...
Error : 7 Line : 158 IF THEN expected [ 158] , in File : C:\...
Error : 123 Line : 158 END IF expected , in File : C:\...


Vielen Dank für eure Hilfe
Grüsse