Errore su una funzione Lenght

        
            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