```
Sub Texto_A_Valor()

'Esta es la forma para poder usar una variable de tipo valor (Integer o Double)

Dim Texto As String
Dim Valor As Double

Texto = InputBox("Ingrese la Cantidad")

If Texto = vbNullString Then
    MsgBox "Ha presionado Cancelar"
Else
    Valor = Val(Texto)
    MsgBox "Ha presionado Aceptar y la cantidad es " & Valor
    
'Aquí simplemente descargo el Valor en una celda y compruebo que tanto
'Enteros como Decimales se cargan correctamente

    Hoja5.Range("I14").Value = Valor
    
End If

End Sub
```