Den hurtigste måde jeg kender ( men ikke den pænest)

Range("d1") = TextBox1  Range("d1") = Range("d1") * 1

Hej igen

Range("d1") var blot et sted at sætte textbox værdien.
Kunne også have være Range("A1"), så var værdien sat i celle A1.

Et af de store problemer med VBA, er at det er ikke lokalitets bestemt som Excel.
Det vil sige at tal og dato formater inde i vba altid vil blive fortolket efter amerikanske standard.
Det er meget besværligt at bruge en textbox for at indhentet en dato fra brugeren, men det kan lade sig gøre.

I dit tilfælde prøv:

Range("A1") = TextBox1 / 98 Range("A1").NumberFormatLocal = "#0,0###############"

Som betyder, værdien i textbox1 bliver divideret med 98, resultatet bliver sat ind i celle A1.
Celle A1 bliver så formateret efter dansk standart.
#0,0############### betyder at hvis tallet er mindre end 1 vil der altid være et nul før kommaet.
Hvis celle A1 er et helt tal vil det blive vist med ",0"
Antallet af # betyder, vis tallet hvis der er et tal, ellers vis ikke noget. Dette antal af # kan du så selv bestemme.

Men jeg mener at huske, at grænsen for hvor mange decimaler excel kan vise er 16.
Dette skulle så også betyde at excel ikke er helt præcis i decimal beregninger. For præcise videnskabelig beregning er excel ikke det bedste valg.

Jeg håber, at dette har hjulpet dig i en retning du kan bruge.

Jeg må lige vende tilbage...

For at gøre det samme på Ark2, og det virker også på skjulte ark

Private Sub CommandButton1_Click() Sheets("Ark2").Range("A100") = Skønnet Sheets("Ark2").Range("A100") = Sheets("Ark2").Range("A100") * 1 Sheets("Ark2").Range("A100").NumberFormatLocal = "#0,0########" Effekten = Skønnet / 1700 Sheets("Ark2").Range("A101") = Effekten Sheets("Ark2").Range("A101").NumberFormatLocal = "#0,0########" End Sub

overskriv Ark2 med det navn dit ark egentlig har

Beklager at jeg først svarer nu
Det blev ikke pænt, men måske virker det, ellers giv besked.
Ligesom jeg vender tilbage hvis jeg finder på andet

Sheets("TEST").Range("a1") = Skønnet Sheets("TEST").Range("a1") = Sheets("TEST").Range("a1") * 1 Sheets("TEST").Range("a1").NumberFormatLocal = "##0,0#" Effekten = Skønnet / 1700 Sheets("TEST").Range("a2") = Effekten Sheets("TEST").Range("a2").NumberFormatLocal = "##0,0#" Range("A3").Formula = "=Round(A2,2)" MsgBox "aaaa " & Sheets("TEST").Range("A3") & " bbbb"

Håber det hjælper. Ellers skriv igen.
Range("A3").Formula = "=TRUNC(A2,2)"
kan også være en mulighed.

På dansk har Libris en god bog om VBA,
På engelsk, Bill Jelen, eller John Walkenbach.
Jelen er ikke så pædagogisk efter de først par kapitler, men er ellers rigtig god, og mange gode eksempler som jeg har lært meget af.

Podlin bogen er den jeg  bedst kender på dansk. Men ønsker du en bedre forståelse, bliver du desværre nok nød til at prøve de engelske. Prøv om du ikke kan låne den gennem biblioteket før du bestemmer dig for at købe. Der er en stor forskel på de forskellige forfatteres stil og grundighed.
En ting som jeg ofte gør, når jeg støder på vba ord/begreber som jeg ikke kender. Skriv ordet i et modul, sæt markøren i ordet, tryk "F1". Det skulle få excel hjælp frem med en forklaring og uddybning, samt for det mest er der også små kode stumper som kan hjælpe på forståelsen.
Når du trykker "F1" skal hjælpen være offline, hvis du ikke har den indstilling er det sikkert at du får vist hjælpen rigtigt.

Ellers kan en google søgning også være til stor hjælp.

En sidste ting, Alle skriver om at variabler skal defineres i starten " fordi ....". Sikkert også det rigtige at gøre, men jeg har klaret mig fint uden. Jeg er ikke så god, så jeg på forhold kan overskue de variabler som jeg bruger ned gennem koden. Og som jeg husker har det ikke givet mig problemer.