[Resolvido]Comparar um Campo com uma Variável que recebe uma lista

Boa a Noite a Todos !

minha duvida acredito ser bem simples para vocês ( Não sei usar Array por isso to pedindo ajuda )

Eu quero comparar um campo com uma variável que recebe uma lista, tipo eu tenho uma lista de codigo NCM de produtos, quero nessa comparar apenas os NCM que começa com 50, até 67

segue a parte do código que da erro código

Código:


'On Error Resume Next
Dim I As Long
For I = 1 To Me.tot_reg Step 1
 
 
    Dim VarNCM As String
    Dim VarNCM_CopaCozinha As String
    Dim GP_SPED As String
   
VarNCM = Array("50", "51", "52", "53", "54", "55", "56", "57", "58", "59", "60", "61", "62", "63", "64", "65", "66", "67")' <<< AQUI ESTA O ERRO >>>
VarNCM_CopaCozinha = Array("84", "85")
   
  'Verifica se é REVENDA ou USO  E CONSUMOS EM GERAL etc... '---------------------1ª Regra
    If Left(Me.NCM, 2) = VarNCM Then
    GP_SPED = "0"  ' Revenda
    ElseIf Left(Me.NCM, 2) = VarNCM_CopaCozinha Then
    GP_SPED = "99"
    Else
    GP_SPED = "AlexTeste"
       
   
    End If


Código:

Dim myArray(50 To 67) As String 'ou Variant se numerico
VarNCM_CopaCozinha = myArray("50", "51")

Primeiramente Obrigado JPaulo !

mas mudei toda a estrutura do meu projeto com uma nova ideia epor enquanto eta dando certo.