受け取った配列の２番目の要素を表示

Sub Macro0433()
Dim myArray As Variant
myArray = Application.InputBox(Prompt:=”セル範囲を指定してください”, _
Type:=64)
MsgBox myArray(2)
End Sub