Visual Basic - Ayuda con cadenas en Visual Basic

Hola!
Estoy Buscando ayuda, para poder rellenar un arry o vector de 20 posiciones (dim vector(1 to 20) as string).
Y quiero saber la forma de rellenarlo en un sola linea.
Algo asi: vector(1 to 20) = "Hola", "Que", "Tal"
en vez de hacerlo asi:
vector(1)="Hola"
vector(2)="Que"
vector(3)="Tal"

Si alguien me pudiese ayudar se lo agradeceria mucho.
Un saludo, y gracias por adelantado

Lo unico ke se me ocurre es lo siguiente:

for i= 0 to 20
vector(i)=inputbox("Introduce la palabra")
next

asi te saldra un mensajito por cada vector y lo ke le pongas te lo ira guardadndo

frase = array("hola","que",tal")

no declares la variable porque sino no anda....se declara automaticamente

Private Sub Form_Load()
Dim vector() As Variant
vector = Array(\"hola\", \"que\", \"tal\")
End Sub