Leider in Schritten:
Code:
DIM Einbyte as Byte
DIM Einint as Integer
DIM EinSingle as single
DIM tmpSingle as single
' single = byte + int          'das soll sein
     tmpSingel = Einbyte                                   ' 1.
     EinSingle = einint                                       ' 2.
     EinSingle = EinSingle + tmpsingle                ' 3.
Hilft nix.