VB6: Subscript out of range

[Shadowball]

Hello, I am making a guessing game which enables you to guess by punching in the letters. Anyway, I was making making then and I encountered this error:

"Runtime-error 9Subscript out of range"

Dim question()
Dim answer()
Dim ans()
Dim qno As Integer
Dim letterClick As String
Dim wrongCount As Integer
 
 
Public Sub showQuestion()
Dim letter
Dim X As Integer
Dim Y As Integer
 
 
Randomize
question = Array("A programming language originally developed by James Gosling at Sun Microsystems", _
            "A programming language from Microsoft", _
            "Determines when the user wants to do something such as exit the application or begin printing")
 
 
answer = Array("Java", _
        "Visual_Basic", _
        "Command_Button")
 
qno = Int(Rnd * (UBound(question) + 1))
ReDim ans(Len(answer(qno)), 2)
 
lblquestion.Caption = question(qno)
 
For X = 0 To Len(answer(qno)) - 1
    ans(X, 1) = Mid$(answer(qno), X + 1, 1)
 
Next X
 
For Y = 0 To Len(answer(qno)) - 1
    If ans(Y, 1) = "_" Then
        ans(Y, 2) = Chr$(32)
    Else
        ans(Y, 2) = "*"
    End If
Next Y
 
loadHint
End Sub

And here is where the problem starts. It seems there was a mismatch with the value of x, which I can't figure out.

Private Sub loadHint()
Dim X As Integer
X = 0
lblHint.Caption = ""
For X = LBound(ans) To (UBound(ans) - 1)
   lblHint.Caption = lblHint.Caption & ans(X, 2)
Next X
End Sub
Private Sub checkLetters()
Dim Y As Integer
Dim X As Integer
 
Y = 0
For Y = LBound(ans) To UBound(ans)
    If UCase(ans(Y, 1)) = UCase(letterClick) Then
        ans(Y, 2) = ans(Y, 1)
        loadHint
        End If
    If answer(qno) = lblHint.Caption Then
        Me.Hide
        frmWinner.Show vbModal
    End If
 
    If Y = UBound(ans) Then
        wrongCount = wrongCount + 1
 
End If
 
Next Y
End Sub
Private Sub cmdA_Click()
letterClick = "a"
checkLetters
playSound
cmdA.Enabled = False
End Sub
 
Private Sub cmdB_Click()
letterClick = "b"
checkLetters
playSound
cmdV.Enabled = False
End Sub
 
Private Sub cmdC_Click()
letterClick = "c"
checkLetters
playSound
cmdC.Enabled = False
End Sub
Private Sub cmdD_Click()
letterClick = "d"
checkLetters
playSound
cmdD.Enabled = False
End Sub
Private Sub cmdE_Click()
letterClick = "e"
checkLetters
playSound
cmdE.Enabled = False
End Sub
Private Sub cmdF_Click()
letterClick = "f"
checkLetters
playSound
cmdF.Enabled = False
End Sub
Private Sub cmdG_Click()
letterClick = "g"
checkLetters
playSound
cmdG.Enabled = False
End Sub
Private Sub cmdH_Click()
letterClick = "h"
checkLetters
playSound
cmdH.Enabled = False
End Sub
Private Sub cmdI_Click()
letterClick = "i"
checkLetters
playSound
cmdI.Enabled = False
End Sub
Private Sub cmdJ_Click()
letterClick = "j"
checkLetters
playSound
cmdJ.Enabled = False
End Sub
Private Sub cmdK_Click()
letterClick = "k"
checkLetters
playSound
cmdK.Enabled = False
End Sub
Private Sub cmdL_Click()
letterClick = "l"
checkLetters
playSound
cmdL.Enabled = False
End Sub
Private Sub cmdM_Click()
letterClick = "m"
checkLetters
playSound
cmdV.Enabled = False
End Sub
Private Sub cmdN_Click()
letterClick = "n"
checkLetters
playSound
cmdN.Enabled = False
End Sub
Private Sub cmdO_Click()
letterClick = "o"
checkLetters
playSound
cmdO.Enabled = False
End Sub
Private Sub cmdP_Click()
letterClick = "p"
checkLetters
playSound
cmdP.Enabled = False
End Sub
Private Sub cmdQ_Click()
letterClick = "q"
checkLetters
playSound
cmdQ.Enabled = False
End Sub
Private Sub cmdR_Click()
letterClick = "r"
checkLetters
playSound
cmdR.Enabled = False
End Sub
Private Sub cmdS_Click()
letterClick = "s"
checkLetters
playSound
cmdS.Enabled = False
End Sub
Private Sub cmdT_Click()
letterClick = "t"
checkLetters
playSound
cmdT.Enabled = False
End Sub
Private Sub cmdU_Click()
letterClick = "u"
checkLetters
playSound
cmdU.Enabled = False
End Sub
Private Sub cmdV_Click()
letterClick = "v"
checkLetters
playSound
cmdV.Enabled = False
End Sub
Private Sub cmdW_Click()
letterClick = "w"
checkLetters
playSound
cmdW.Enabled = False
End Sub
Private Sub cmdX_Click()
letterClick = "x"
checkLetters
playSound
cmdX.Enabled = False
End Sub
Private Sub cmdY_Click()
letterClick = "y"
checkLetters
playSound
cmdY.Enabled = False
End Sub
Private Sub cmdZ_Click()
letterClick = "z"
checkLetters
playSound
cmdZ.Enabled = False
End Sub
Private Sub Form_Activate()
enableButton
 
End Sub
 
Private Sub Form_Load()
frmMenu.Show vbModal
End Sub
Private Sub playSound()
SoundName$ = "c:\windows\tada.wav"
   wFlags% = SND_ASYNC Or SND_NODEFAULT
   X% = sndPlaySound(SoundName$, wFlags%)
End Sub
 
Public Sub enableButton()
cmdA.Enabled = True
cmdB.Enabled = True
cmdC.Enabled = True
cmdD.Enabled = True
cmdE.Enabled = True
cmdF.Enabled = True
cmdG.Enabled = True
cmdH.Enabled = True
cmdI.Enabled = True
cmdJ.Enabled = True
cmdK.Enabled = True
cmdL.Enabled = True
cmdM.Enabled = True
cmdN.Enabled = True
cmdO.Enabled = True
cmdP.Enabled = True
cmdQ.Enabled = True
cmdR.Enabled = True
cmdS.Enabled = True
cmdT.Enabled = True
cmdU.Enabled = True
cmdV.Enabled = True
cmdW.Enabled = True
cmdX.Enabled = True
cmdY.Enabled = True
cmdZ.Enabled = True
End Sub
 

Thanks in advance.

[Killer42]

Which line produces the error?

I would like to make a couple of minor points, just in case they're helpful:

• Mid$ begins with position 1, not 0. This might lead to an error at some point.
• The For loop sets the counter variable to the specified starting value, so you don't need to set it to 0 before the loop. There's no problem with setting it to a value first, it's just pointless.
• If you want your program to produce a different sequence of random numbers each time it's run, include the statement Randomize some time during your startup process. It's actually a psedu-random number generator, which works from a "seed" number. If you don't change the seed it will produce the same series of numbers each time. Note that this can be very useful for testing, but is likely to be a pain in the real world.
  By default, I think Randomize uses the current time as the seed.
  Edit: Oops! I see you have a Randomize. Sorry. But I'll leave this here as general advice for anyone who bumps into this post in the future.
• Ok, this one is a very trivial matter, but for reasons of general performance/efficiency, I recommend using Long format rather than Integer. Assuming we're talking about VB6, on a 32 bit processor, the 32-bit Long data type is the "native" size and doesn't require translation every time it's accessed.
• I love the way you've made a lot of your code work with the actual size of the ans array (Lbound, Ubound) rather than assuming a particular size. This sort of flexible coding can make you life much easier when things change later.