recomposer un Single avec quatre octect

'--- Déclaration -----------------------------------------------------------------------------
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long) 



'--- Utilisation -----------------------------------------------------------------------------
Dim TonTab(1 To 4) As Byte 
Dim TonSingle As Single 

TonTab(1) = 92  'MSB N
TonTab(2) = 143  'LSB N
TonTab(3) = 34  'MSB N+1
TonTab(4) = 64  'LSB N+1

CopyMemory TonSingle, TonTab(1), LenB(TonSingle) 

MsgBox TonSingle 

Coloration syntaxique automatique