Hu Hu,

ja das war ein kleiner Kopierfehler.
Und vielen Dank, habe es jetzt so gemacht und jetzt funktioniert es!

Code:
Dim Te As Single
Dim Rechenwert1 As Single
Dim Rechenwert2 As Word
Dim Vorkomma_word as Word
dim Nachkomma_word 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_word = Rechenwert2 / 100       
Nachkomma_word = Rechenwert2 Mod 100
Vorkomma = Vorkomma_word
Nachkomma = Nachkomma_word
Aber geht das ganze nicht irgendwie ein wenig einfacher? Das scheint mir doch alles ein wenig viel zu sein für so eine "einfache" Rechenoperation.