Das würde bedeuten, dass das Teilen durch 10 wieder neue Stellen erzeugt. Dann würde ich mal den Format Befehl mit der Maske "0000.0" probieren.

X = X * 10
X = Round(x)
Text=FORMAT(x, "0000.0")