Como traer datos numéricos de una celda de excel a un textbox

Como puedo traer datos de una celda en excel (numérico) a un textbox e intentado con un código pero no logro nada:

Private Sub TextBox7_AfterUpdate()
Set rango = Range("A:A").Find(What:=TextBox7, _
LookAt:=xlWhole, LookIn:=xlValues)

If rango Is Nothing Then
MsgBox "El dato no fue encontrado", vbOKOnly + vbInformation, "AVISO"
TextBox7 = "": TextBox7.SetFocus
Exit Sub
Else
TextBox21 = Sheets("hoja23").Range("C" & rango.Row)
TextBox8 = Sheets("hoja23").Range("B" & rango.Row)

End If

End Sub