Textbox Value To Worksheet

I 've made a form with the following


Private Sub cmdAdd_Click()
Dim lRow As Long
Dim lPart As Long
Dim ws As Worksheet
Set ws = Worksheets("PartsData")

' find first empty row in database
lRow = ws. Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row

lPart = Me.cboPart.ListIndex

The value's entered in the textbox txtQty return as text in the database. This is a problem when a value like 1,50 of 10,5 is enterred.

How can I solve this problem? In other words, what code do I need the add to get de entered value's in the textbox as numbers.......