Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
  Destination As Any, Source As Any, ByVal length As Long)
 
Private Sub Command1_Click()
    Dim src As Long
    Dim erg As Single
 
    src = &H40400000  '1077936128 !!!!!!!!!!!!!!!!!!!!!!!!!
    erg = 0!
 
    CopyMemory erg, src, Len(src)
 
    MsgBox CStr(erg)
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1