Problema com TextBox

[FRC]

Tenho um codigo que utilizo variaveis do tipo "Single", a qual tem o seu valor passado por um TextBox. Só que quando eu executo o código, aparece o erro: "Run-Time Error 13". Pesquisei a respeito e descobri que esse erro acontece quando se manipula variaveis de tipos diferentes, ou seja, o TextBox.Value não deve ser do tipo "Single". Como faço para resolver esse problema??

Segue parte do codigo para melhor entendimento:

Private Sub CommandButton1_Click()
Dim valor As Single
If cbx_Bancos.Value <> "" Then
With Range("B3")
.NumberFormat = 0
.Value = cbx_Bancos.Value
.Offset(0, 2) = Format(TextBox1.Value, 0)
If TextBox2.Value = Empty Then
valor = Empty
Else
valor = TextBox2.Value ' --> Dúvida
End If
.Offset(0, 4).Value = valor
.Offset(0, 4).NumberFormat = "$#,##0.00"
End With
cbx_Bancos.Clear
TextBox1 = Empty
TextBox2 = Empty
End If
End Sub

Segue em vermelho a parte do codigo que contem a duvida. Se alguém puder me ajudar, agradeço bastante.

PS. Como adicionei a tag de código o texto não ficará vermelho, adicionei o comentaria na linha em questão.(Raphael_Suporte)

[raphael_suporte]

tente usar o comando csng(textBox), para conseguir converter os dados para single. o valor recuperado de um textbox é no formato de String, por isso será necessário essa conversão.

.
.
valor = Empty
Else
     valor = csng(TextBox2.Value) ' --> Dúvida
End If
.
.