Errore su una funzione Lenght

Salve, sto eseguendo un algoritmo e mi dà errore una funzione "Len(ArrPeriodiSelezionati(cntA + 1, 0)) - 1)" dicendomi: "L'argomento 'Length' deve essere maggiore o uguale a zero." La variabile cntA ha valore 1.
Metto nel code la procedura interessata.

        If sStato <> "Anni" Then
            For cntA = 0 To UBound(a, 1) - 1
                ArrPeriodiSelezionati(cntA + 1, 0) = ""
                For cntP = 0 To UBound(p, 1) - 1
                    If Not IsNothing(ArrPeriodiSelezionati(cntA + 1, cntP + 2)) Then
                        ArrPeriodiSelezionati(cntA + 1, 0) += ArrPeriodiSelezionati(cntA + 1, cntP + 2) & ","
                    End If
                Next
                ArrPeriodiSelezionati(cntA + 1, 0) = Microsoft.VisualBasic.Left(ArrPeriodiSelezionati(cntA + 1, 0), Len(ArrPeriodiSelezionati(cntA + 1, 0)) - 1)
            Next
        End If

Grazie
Mauro