dim i as integer
for i = lbound(tmp) to ubound(tmp)
msgbox(tmp(i))
next

lbound è una funzione che ti prende l'indice + basso del vettore, ubound il + alto...
in questo modo farai venire fuori una msgbox per ogni valore del vettore tmp