Byte-Variable Berechnung fehlerhaft

[demmy]

Hi zusammen,
Frohe Weihnachten erst mal an alle!

Ich habe heute mal ein wenig Zeit und grübele gerade an einem Problem.

Ich habe eine Single-Variable die ich auf 2 Stellen vor und nach dem Komma aufteilen möchte.
Das habe ich so versucht:

Dim Te As Single
Dim Rechenwert1 As Single
Dim Rechenwert2 As Word
Dim Vorkomma As Byte
Dim Nachkomma As Byte

Rechenwert1 = Te * 100                ' Komma um zwei Stellen nach rechts verschieben
Rechenwert1 = Round(rechenwert1)   ' letzte Stelle runden
Rechenwert2 = Rechenwert1          ' Single-Variable in Word-Variable wandeln
Vorkomma = Rechenwert2 / 100       
Nachkomma = Rechenwert2 Mod 100

Bis zu Rechenwert2 stimmen meine Ergebnisse. Nur danach, der Wert Vorkomma und der Wert Nachkomma, sind totaler Blödsinn.

Ich hätte gerne das die beiden Werte jeweils in einer Byte-variable stehen. Wo ist denn mein Denkfehler?

Viele Grüße