Inicializar arreglo string en tiempo de ejecución

Dim array() As String = New String(3) {}