Sugiro que voce faça um loop:

 

dim i1 as integer

dim i2 as integer

dim matriz() as string

 

open("C:     este.txt") for output as #1

for i1 = 0 to lbound(matriz)

  for i2 to 0 to rbound(matriz)

    print #1, matriz(i1) & matriz(i2)

  next i2

next i1

close #1

 

Cara é por ai, da uma olhada melhor....

o problela é que ta pulando as linhas e eu nao quero que pule ta ficando assim :

1

1

1

1