Number Stored as Text

have a userform that when textbox number value goes to excel worksheet i have to always convert to number because the 'number is stored as text'. this is messing up my formulas in the worksheet. was wondering what i can do on my userform OR worksheet to prevent this

using a spinbutton to control the textbox, this is the code behind one of the spinbuttons

Private Sub sbscore1_Change()
txtscore1.Text = sbscore1.Value
End Sub



thanks.

here's the code that from the 'submit' button that moves everything from the userform to the worksheet
Private Sub cmdSubmit_Click()
Dim WS As Worksheet
Dim NextRow As Long

Set WS = Worksheets("userformworksheet")

With WS
NextRow = .Cells(.Rows.Count, "A").End(xlUp).Row + 1

.Range("A" & NextRow) = Me.cmbscreener
.Range("B" & NextRow) = Me.cmbreviewer
.Range("C" & NextRow) = Me.cmbsupervisor
.Range("D" & NextRow) = Me.cmbdisposition
.Range("E" & NextRow) = Me.cmbcampaign
.Range("F" & NextRow) = Me.cmbagentgroup
.Range("G" & NextRow) = Me.txtdateofcall
.Range("H" & NextRow) = Me.txtdateofmonitor
.Range("I" & NextRow) = Me.txtcallid
.Range("j" & NextRow) = Me.txtpossible1
.Range("k" & NextRow) = Me.txtscore1
.Range("m" & NextRow) = Me.txtpossible2
.Range("n" & NextRow) = Me.txtscore2
.Range("p" & NextRow) = Me.txtpossible3
.Range("q" & NextRow) = Me.txtscore3
.Range("s" & NextRow) = Me.txtpossible4
.Range("t" & NextRow) = Me.txtscore4
.Range("v" & NextRow) = Me.txtpossible5
.Range("w" & NextRow) = Me.txtscore5
.Range("y" & NextRow) = Me.txtpossible6
.Range("z" & NextRow) = Me.txtscore6
.Range("ab" & NextRow) = Me.txtpossible7
.Range("ac" & NextRow) = Me.txtscore7
.Range("ae" & NextRow) = Me.txtpossible8
.Range("af" & NextRow) = Me.txtscore8

.Range("ah" & NextRow) = Me.cbxfail1
.Range("ai" & NextRow) = Me.cbxfail2
.Range("aj" & NextRow) = Me.cbxfail3
.Range("ak" & NextRow) = Me.cbxfail4
.Range("al" & NextRow) = Me.cbxfail5

.Range("am" & NextRow) = Me.txtpossiblepoints
.Range("an" & NextRow) = Me.txtpointsearned
.Range("ao" & NextRow) = Me.txtqascore
.Range("ax" & NextRow) = Me.txtnotes
End With

awesome, first code worked. thanks!