Moduleแรก
Private Sub ArrayStorage()
Dim Finish_Order As Integer

        Finish_Order = Worksheets("Plan").Range("FinishOrder").Value

For i = 1 To Finish_Order
         Order(i) = Worksheets("Plan").Range("Order").Cells(i).Value
Next

ReDim Array_A(Finish_Order, Finish_Order)        
        For a = 1 To Finish_Order
         For a1 = 1 To Finish_Order             
                        Array_A(a, a1) = Order(a1)
         Next
        Next     

codeประมาณนี้ครับ คืออยากเก็บค่า Array_Aในmoduleแรกเเล้วนำมาเรียกใช้ในmoduleที่2 ต้องทำยังไงครับ