For Each array3 In Me.test
                  Dim text1 As String
                  For Each text1 In array3
                        MyBase.Response.Write(text1)
                  Next
            Next

Private Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
      If Not Me.Page.IsPostBack Then
            Dim array1 As Array = Array.CreateInstance(GetType(Array), 2)
            Dim textArray1 As String() = New String() { "nome", "marco" }
            array1.SetValue(textArray1, 0)
            Dim textArray2 As String() = New String() { "cognome", "marco" }
            array1.SetValue(textArray2, 1)
            Me.test = array1
      Else
            Dim array3 As Array
            For Each array3 In Me.test
                  Dim text1 As String
                  For Each text1 In array3
                        MyBase.Response.Write(text1)
                  Next
            Next
      End If
End Sub
Public Property test As Array
      Get
            Return CType(Me.ViewState.Item("test"),Array)
      End Get
      Set(ByVal value As Array)
            Me.ViewState.Item("test") = value
      End Set
End Property