Zahlenformatierung einer Textbox in Userform

ich setze folgende Sub ein, um Zahlen in einer Textbox in UF wie folgt zu formatieren: 1000 ---> 1.000

Private Sub menge_1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim menge_1 As Double
Me.menge_1.Value = Format(Me.menge_1.Value, "#,##0")
End Sub

Nach dem verlassen des Feldes Menge_1 erfolgt die Änderung auch wie gewünscht. Das Problem ist folgendes: Wenn der so formatierte Inhalt in die Tabelle übernommen wird speichert Excel mir statt 1.000 nur den Wert 1 ab.

Was mache ich falsch???

Das Speichern mache ich mit:
Range("L" & Trim(Str(Row))).Value = Me.menge_1.Value

Für Eure Hilfe bereits jetzt schon einmal besten Dank.

Gruß Raik