MsgBox qui renvoie à l'unité supérieur, pas à une décimale

Bonjour le Forum et Bonne Année à toutes et tous!

Je colle une macro ci-après qui me pose un problème (certainement simple) qui me bloque. Quand je rentre une valeur à virgule dans la MsgBox la valeur est arrondi à l'unité supérieur (j'ai bien coché nombre de décimales 1).

Sub Heuresup()

With Selection

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlCenter

End With

With Selection.Font

.Name = "arial"

.Size = 6

.Underline = xlUnderlineStyleNone

.ColorIndex = 5

End With

Dim Reponse As Integer

Reponse = InputBox("Saisissez le nombre d'heure à ajouter (+) ou à déduire (-)")

Selection.FormulaR1C1 = Reponse

End Sub

Un GRAND merci à la personne qui m'aidera à trouver la solution.

Cordiales salutations.

Apparemment j'ai trouvé... il suffit de remplacer Integer par String

Dim Reponse As String