VBA Help: To store results in Array.. Myarray1,myarray2,myarray3 etc...

Given an example below.. would need to store results in a "array" .. Line 4 says "type mismatch"

Sub arraytest()
Dim myarray As Variant
For i = 1 To 10
myarray(i) = i
Next
For i = 1 To 10
Range("B" & i).Value = myarray(i)
Next
End Sub

Thanks.