pfarias

Boa Tarde!

Não sei se é possível fazer com constantes. Só serve se for com constantes? Se servir como variável, aqui segue minha sugestão:

    Dim Arquivo(3) As String
    Dim x As Integer
    
    For x = 1 To 3
        Arquivo(x) = "Teste" & x
    Next
    
    For x = 1 To 3
        MsgBox Arquivo(x)
    Next

Outra forma de fazer algo parecido:

Public Sub Testar()
    
    Const cARQUIVOS As String = "1;2;3"
    
    Dim astrArquivos() As String
    Dim intI As Integer
    
    astrArquivos = Split(cARQUIVOS, ";")
    
    For intI = 0 To UBound(astrArquivos())
        MsgBox "Arquivo " & astrArquivos(intI)
    Next intI

End Sub

Valeu Nelson! Isso ajuda também.

Estava tão apressado e estressado para acabar com esse trabalho que tinha esquecido na vida que matriz existe. kkkkkkkk

Eu vou ficar o uso da matriz mesmo. Abraços!