For d = 0 To (gstrCCArray.Count() - 1)
                If gstrCCArray(d).ToString.StartsWith("52") Then
                     do.something()
                     Exit For
                End If
            Next d