Un erreur de type incompatible

merci de votre attention mais c'etait pas le cas voici le code
Private Sub OptionButton1_Click()
Dim i, tn, j, k As String
Dim a, b, c, mtbf, mttr, tn1, N, IPR, looper, lp As Long
looper = 0
Do
i = InputBox("entrez le nombre totale d'heures de fonctionnement")
MsgBox (i)
For lp = 1 To 20
If i(lp) = "1" Then
looper = 1
MsgBox ("la saisie d'un NOMBRE a echoué veuiller verifiez le NOMBRE d'heures à saisir")
End If
Next
Loop Until (looper = 0)