Inicialização De Vetores

[Guest Aureo]

Gostaria de saber se tem algum modo de inicializar uma matriz em VB 6.0

Eu estou usando o Select Case e queria saber se tem um modo mais fácil do que esse:

for X=0 to 2

for Y=0 to 6

Select Case X

Case 0:

Select Case Y

Case 0: PALAVRA(X,Y)="A"

Case 1: PALAVRA(X,Y)="M"

Case 2: PALAVRA(X,Y)="A"

Case 3: PALAVRA(X,Y)="R"

Case 4: PALAVRA(X,Y)="E"

Case 5: PALAVRA(X,Y)="L"

Case 6: PALAVRA(X,Y)="O"

end select

Case 1:

Case 0: PALAVRA(X,Y)="L"

Case 1: PALAVRA(X,Y)="A"

Case 2: PALAVRA(X,Y)="R"

Case 3: PALAVRA(X,Y)="A"

Case 4: PALAVRA(X,Y)="N"

Case 5: PALAVRA(X,Y)="J"

Case 6: PALAVRA(X,Y)="A"

end select

end select

next

next

[Guest Aureo]

Case 1:

Case 0: PALAVRA(X,Y)="L"

Case 1: PALAVRA(X,Y)="A"

só fiz um errinho ali:

Case 1:

Select Case Y:

Case 0: PALAVRA(X,Y)="L"

Case 1: PALAVRA(X,Y)="A"

agora sim...

[Graymalkin]

Você quer dizer algo assim...

Dim vetor() As String
    
vetor = Split("A;M;A;R;E;L;O", ";")
    
For Each caracter In vetor
    MsgBox caracter
Next

...?

Abraços,

Graymalkin