Ophalen en opslaan als getallen via VBA

[swientjes]

Goedemorgen,

Na weer een avond gestoeid te hebben is t weer eens niet gelukt

ik heb een userform die de data uit specifieke cellen ophaalt en weer opslaat.
nu doet hij dat niet goed. getallen worden tekst en gedeelte van getallen worden weergegeven

kan iemand helpen dit werkend te krijgen

onderstaand het voorbeeld bestand.
Bekijk bijlage voorbeeld 2.xlsm


Bij voorbaat dank

 

[Jack Nouws]

Zo beter?

Private Sub CommandButton1_Click()
Sheets("Sheet1").Range("A1").Value = CDbl(TextBox1.Value)
Sheets("Sheet1").Range("B1").Value = CDbl(TextBox2.Value)
Sheets("Sheet1").Range("C1").Value = CDbl(TextBox3.Value)
End Sub

 

[swientjes]

jeetje dat was snel

perfect werkt helemaal goed, dank u wel