Userform - textbox - value

Jeg har en userform med en textbox, hvor man indtaster en værdi, som ved klik på "OK" indsættes i en given celle

Det gør jeg ved brug af følgende:

Private Sub CommandButton1_Click()

[CelleA1] = (UserForm3.TextBox1.Value)

UserForm3.Hide
Unload UserForm3

End Sub

Problemet er at hvis man indtaster en given værdi med decimaler går den kold (dvs. at det ikke bliver registeret som en værdi i cellen), såfremt man ikke bruger punktum...

Løsning anyone? Det skulle jo gerne være så at man kan indtaste tallene med decimaler, hvor man anvender dansk formatering og bruger komma