Hello

I use this code to transfer from a userform with 15 textboxes to sheet11-starting in columnB,all the info that user type in these boxes. 

Private Sub CommandButton1_Click()
Dim lngCount As Long
Dim lngLR As Long
With Sheets("11")
  lngLR = .Range("B" & Rows.Count).End(xlUp).row + 1
  For lngCount = 1 To 15
    .Cells(lngLR, 1 + lngCount).Value = Me.Controls("Textbox" & lngCount)
    Me.Controls("Textbox" & lngCount).Value = vbNullString
  Next lngCount
   Sheets("11").Range("e1:e1000").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "11!AN1"), Unique:=True
End With
End Sub
In some of these textboxes(2,5,11,12,13) we type numbers.

My problem is that in sheet 11 that data are trensfered, as text. Not as numbers!

Does anyone has an idea how to fix this?

Thanks in advance for any assistance!