お願いします

Private Sub Button1_Clickなんとかかんとか

　Dim Yakuyear() As Integer = New Integer() {}
　Dim Yakuage() As Integer = New Integer() {25, 42, 61}
　Dim Birthyear As Integer
　Dim Yakukind() As String = New String() {"前厄", "本厄", "後厄"}

　 If Integer.TryParse(TextBox1.Text, Birthyear) Then
　 　 For i As Integer = 0 To 2
　 　 Yakuyear(i) = Birthyear + Yakuage(i) - 1
　 　 　For j As Integer = 0 To 2
　 　 　 　ListBox1.Items.Add(Yakukind(i) & "…" & (Yakuyear(i) - 1) & "年")
　 　 　Next
　 　 Next
　 Else
　 　 ListBox1.Items.Add("error")
　 End If

End Sub

デバッグしてみたらYakuyear(i) = Birthyear + Yakuage(i) - 1のところに
インデックスがリストサイズより小さくなるようにしてくださいみたいな表示が出ました
配列の要素数を予め決めてないので、配列のサイズより大きくはなっていないと思います
どう直したらいいんでしょうか