VB6 Subscript out of Range

Dim Ratewords(9) As String
Dim Rateword As String
Dim Keyword As String
Dim Letter As String
Dim lifelost As Boolean
Dim life As Integer
Dim gr As Integer
Dim kr As Integer
Dim zuf As Integer



Private Sub Command1_Click()
Letter = Text1.Text
Letter = UCase(Letter)
Text1.Text = ""
If Len(Letter) = 1 Then
    If Asc(Letter) > 64 And Asc(Letter) < 91 Then
    lifelost = True
    For i = 1 To Len(Rateword)
        If Mid(Letter, i, 1) = Letter Then
            Mid(Keyword, i, i) = Letter
            Label1.Caption = Keyword
            lifelost = False
            If Keyword = Rateword Then
            Box = MsgBox("You win Play again?", 36, "Win")
            
            
           End If
        End If
    Next
Else
    Box = MsgBox("Only tip in Letters, please", 0, "Error")
    End If
Else
    Box = MsgBoy("Please only tip in 1 Letter no more!", 0, "Error")
End If
Text1.SetFocus
End Sub

Private Sub Form_Load()
    Ratewords(1) = "SHOE"
    Ratewords(2) = "LEG"
    Ratewords(3) = "JAMES"
    Ratewords(4) = "NOSE"
    Ratewords(5) = "ICETEA"
    Ratewords(6) = "COMPUTER"
    Ratewords(7) = "HACKER"
    Ratewords(8) = "PEARLS"
    Ratewords(9) = "MUSIC"
    
    kl = 0
    gr = 9
    
    Randomize
    
    zuf = Int(Rnd + (gr - kl + 1)) + kl
    
  [COLOR="Red"]  Rateword = Ratewords(zuf)[/COLOR]
    
    For i = 1 To Len(Rateword)
        Keyword = Keyword + "-"
    Next
    
    Label1.Caption = Keyword
    
    life = 15
    
    Label2.Caption = life
        
        
End Sub

Private Sub Form_Unload(Cancel As Integer)
Box = MsgBox("Would you really like to Close it?", 36, "Closerequest")
    If Box = 6 Then

    Else
        Cancel = 1
        
    End If


End Sub