Hallo!

Ich habe diesen code:
Code:
Dim Txt As String * 27
Dim X As Byte
Dim Y As Byte

...

Declare Sub Sendtxt(a As Byte , B As Byte , Text As String) 

...

Call Sendtxt(x , Y , Txt);

...

Do                                                        
Loop
End                                                         'end program

...

Sub Sendtxt(a As Byte , B As Byte , Text As String)
   Print Chr(255);
   Print Chr(a);
   Print Chr(b);
   Print Text;
End Sub
Ich bekomme aber jetzt die folgenden Fehler:
Getclass error [ 0]
Different parameter type passed then declared [Txt ;]
BYVAL should be used in declaration [[ 0]]

Was muß ich ändern?