Шифрование методом квадрат Полибия (исправить ошибку)

Module Module1
    Dim P(5, 5) As String
    Dim a
    Private h As Integer
    Private v As Integer
 
    Public Sub Command1_Click()
        P = Array("A", "B", "C", "D", "E",
                  "F", "G", "H", "I", "K",
                  "L", "M", "N", "O", "P",
                  "Q", "R", "S", "T", "U",
                  "V", "W", "X", "Y", "Z")
        For i = 1 To 5
            For j = 1 To 5
                P(i, j) = a((i - 1) * 5 + j - 1)
            Next
        Next
        Print(enc("POLIBIUS"))
        Print(denc(enc("POLIBIUS")))
    End Sub
    Function enc(t$) As String
        enc = ""
        For i = 1 To Len(t)
            For h = 1 To 5
                For v = 1 To 5
                    If Mid(t, i, 1) = P(h, v) Then
                        enc = enc & P(1, h) & P(1, v)
                        GoTo 1
                    End If
                Next
            Next
1:
        Next
    End Function
    Function denc(t$) As String
        denc = ""
        Dim i As Integer
        i = 1
        While i <= Len(t)
            For h = 1 To 5
                If Mid(t, i, 1) = P(1, h) Then Exit For
            Next
            For v = 1 To 5
                If Mid(t, i + 1, 1) = P(1, v) Then Exit For
            Next
            denc = denc + P(h, v)
            i = i + 2
        End While
 
    End Function
 
End Module