Ребят что я сделал неправильно? ? Помогите..

Задание такое:
Задан список из семи пород собак. Поменять местами название первой породы и последней, заканчивающейся на "терьер"

Вот текст программы:
Private Sub CommandButton1_Click()
For i = 1 To 7
G(i) = InputBox("Введи породу собаки")
ListBox1.AddItem (G(i))
Next
End Sub

Private Sub CommandButton2_Click()
Flag = 0
For i = 1 To 7
L = Len(G(i))
If L > 3 Then
If Mid(G(i), L - 1, 7) = "терьер" Then
If Flag = 0 Then
k = i: Flag = 1
Else
Exit For
End If: End If: End If:
Next
Rab = G(i)
G(i) = G(k)
G(k) = Rab
For i = 1 To 7
ListBox2.AddItem (G(i))
Next
End Sub

При запуске ругается на вот эту строку G(i) = InputBox("Введи породу собаки")