Excel VisualBasic Script

Sub TransposeArray()
    Dim myArray As Variant
   myArray = WorksheetFunction.Transpose(range("myTran"))
   MsgBox "The 5th element of the Array is: " & myArray(5)
End Sub