Hi, vielen Dank,
also hier die reihen:

F.:Error: 31 Line: 30 Infalid datatyp [0]
Result = Getadc(4) ; Result

F.:Error: 93 Line: 30 Variable not dimensioned [0-> 0]
Result = Getadc(4) ; Result

F.:Error: 1 Line: 32 Unknow Statement [IF]
If

F.:Error: 1 Line: 33 Unknown statement [Result > 1000 Then]
Result > 1000 Then


Viele Grüße und vielen Dank