Inputbox

Hej

Har en inputbox hvor man kan indtaste tal hvorefter den smider det i celle F9:

Private Sub CommandButton8_Click()
Range("F9") = Replace(InputBox("Indtast din holdånd i decimal tal i feltet nedenfor (Minimum 0,01, Max 10)", "Holdånd"), ",", ".")
End Sub

Kan man gøre to ting:

1. Gøre så brugeren ikke kan trykke mere end 10, hvis personen  gør det, skal den skrive maks 10?

2. Hvis personen ikke skriver noget lader den feltet være blankt, kan man få den til at skrive 4,5 hvis personen lader det være blankt og trykker ok?