decimal tal i inputbox

Jeg har lavet en inputbox hvor man skal kunne skrive decimal tal i feltet hvorefter den skal kunne skrive det i feltet L20, men hver gang jeg f.eks. skriver 4,3 runder den det ned til 4, hvor er fejlen?


  Dim navn As Integer, NR As Variant, I As Integer
    navn = InputBox("Indtast din holdånd i feltet nedenfor", "Holdånd")
    If vbOK Then
    For I = 1 To Len(navn)
    If IsNumeric(Mid(navn, I, 1)) Then
    NR = NR & Mid(navn, I, 1)
    End If
    Next
    Range("L20").Value = NR