Convert Double into 8-bytes array

Question

I want to convert a Double variable into an 8-bytes array, this is what I\'ve come with so far:

Dim b(0 To 7) As Byte
Dim i As Integer

dim d as