La fonction If VarType(mavariable) <> vbSingle ne fonctionne pas

Bonjour,

Voici le code :

Sub MAJ_TX()

Worksheets("SIG").Activate

Dim AssuranceCreditClient
AssuranceCreditClient = InputBox("Quel est le taux d'assurance crédit client ?", "Mise à jour des taux")
If VarType(AssuranceCreditClient) <> vbSingle Then
Range("I61").Value = 0
Else: Range("I61").Value = AssuranceCreditClient
End If

End Sub


Cette macro renvoi toujours la valeur 0 dans le cellule I61.
J'aimerais qu'elle renvoie la valeur qu'on lui donne dans l'InputBox si cette dernière est un nombre décimale ou non.

Avez-vous une idée de ce que j'ai mal fait ?

Merci,