una funzione che stampi un vettore non credo esista, ma puoi fartela tu in pochi secondi...

codice:
Function StampaVettore(Vettore as Variant, size as Long) as String
Dim i as Integer

str=""
For i=0 to size-1  'puoi anche usare Ubound(nome vettore)-1
   str=str+ Vettore(i)+vbcrlf   
Next
Stampa Vettore=str

End function
poi stamperai la stringa con msgbox volendo...