option Explicit

Dim Str, i, arr_len

Dim arr(10)

arr(0)="I"

arr(1)="N"

arr(2)="D"

arr(3)="I"

arr(4)="A"

arr_len=Ubound(arr)

for i=0 to arr_len

Str=str&arr(i)

next

msgbox Str