Ein Single aus zwei Bytes

Ich steh mal wieder auf dem Schlauch...

Wie kann ich es anstellen, wenn ich aus zwei Werten, beispielsweise einem Integer und einem Byte, einen einzelnen Single machen will ?
also so ungefähr:

IntegerA + ByteB = SingleC


Vielen Dank schon einmal für eventuell klärende Hinweise
MfG
Paul

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.