Option Explicit
 
Private Type V1
  Wert As Double
End Type
Private Type V2
  Wert(15) As Byte
End Type
 
Private Sub Form_Load()
 
Dim S$, X As V1, Y As V2, i%
 
' &H41069F2800000000"
S = "41069F2800000000"
For i = 0 To 7
  Y.Wert(i) = Val("&H" & Mid$(S, 15 - 2 * i, 2))
Next i
LSet X = Y
MsgBox X.Wert
 
End Sub

Gruss,

Zardoz