Исправить ошибку в условных операторах - VB

Формулировка задачи:

в библиотека имеется список книг. Каждая запись этого списка содержит фамилии авторов, название книги,год издания,тематику. Определить имеется ли в данном списке книги, интересующие читателя. Поиск осуществляется по введенному ключевому слову в названии книги и тематики. Вывести на экран фамилии авторов, название и год издания всех таких книг.

Private Type Spravka
fio  As String
name As String
tema As String
data As Integer
End Type
Private Sub Command1_Click()
Form1.Cls
Dim a1 As Spravka
Dim a2 As Spravka
Dim a3 As Spravka
Dim a4 As Spravka
Dim a5 As Spravka
Dim a6 As Spravka
With a1
.fio = "Александр Сергеевич Пушкин"
.name = "Сказка о Золотом Петушке"
.tema = "сказки"
.data = "2011"
End With
With a2
.fio = "Достоевский Федор Михайлович"
.name = "Преступление и наказание"
.tema = "классическая литература"
.data = "2009"
End With
With a3
.fio = "Толстой Алексей Николаевич"
.name = "Приключение Буратино,или Золотой ключик"
.tema = "детская литература"
.data = "2007"
End With
With a4
.fio = "Жюль Верн "
.name = "Дети капитана Гранта"
.tema = "Приключение"
.data = "2002"
End With
With a5
.fio = "Владимир Владимирович Набоков "
.name = "Лолита"
.tema = "Художественная литература"
.data = "2000"
End With
With a6
.fio = "Грибоедов Александр Сергеевич"
.name = "Горе от ума"
.tema = "Художественная литература"
.data = "2004"
End With
If (a1.tema = "художественная литература") Then
MsgBox a1.fio & " " & a1.name
If (a2.tema = "художественная литература") Then
MsgBox a2.fio & " " & a2.name
If (a3.tema = "художественная литература") Then
MsgBox a3.fio & " " & a3.name
If (a4.tema = "художественная литература") Then
MsgBox a4.fio & " " & a4.name
If (a5.tema = "художественная литература") Then
MsgBox a5.fio & " " & a5.name
If (a6.tema = "художественная литература") Then
MsgBox a6.fio & " " & a6.name
End If
End If
End If
End If
End If
End If
End Sub

ошибка в строках 51-68,пожалуйста объясните и исправьте ошибку

Решение задачи: «Исправить ошибку в условных операторах»

textual
                            Листинг программы 
                        

                            Private Type Spravka
    fio  As String
    name As String
    tema As String
    data As String 
End Type
Private Sub Command1_Click()
Form1.Cls
Dim a(1 To 6) As Spravka, i As Integer
With a(1)
.fio = "Александр Сергеевич Пушкин"
.name = "Сказка о Золотом Петушке"
.tema = "сказки"
.data = "2011"
End With
With a(2)
.fio = "Достоевский Федор Михайлович"
.name = "Преступление и наказание"
.tema = "классическая литература"
.data = "2009"
End With
With a(3)
.fio = "Толстой Алексей Николаевич"
.name = "Приключение Буратино,или Золотой ключик"
.tema = "детская литература"
.data = "2007"
End With
With a(4)
.fio = "Жюль Верн "
.name = "Дети капитана Гранта"
.tema = "Приключение"
.data = "2002"
End With
With a(5)
.fio = "Владимир Владимирович Набоков "
.name = "Лолита"
.tema = "Художественная литература"
.data = "2000"
End With
With a(6)
.fio = "Грибоедов Александр Сергеевич"
.name = "Горе от ума"
.tema = "Художественная литература"
.data = "2004"
End With
 
For i = 1 To 6
    If a(i).tema = "Художественная литература" Then
        MsgBox a(i).fio & " " & a(i).name
    End If
Next i
 
End Sub
                        