Attribute VB_Name = "Module1"
Public Declare Function GetTickCount Lib "kernel32" () As Long

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Public lStartTime As Long
Public lTime_1 As Long, lTime_2 As Long
Public lTime_Min As Long, lTime_Max As Long


Public Function FloatConversion(ByVal fRev As Single) As String

Dim fTemp As Single

fTemp = fRev

Dim bytArray(0 To 3) As Byte
'CopyMemory fResult, bytArray(0), 4

CopyMemory bytArray(0), fTemp, 4

'Label1.Caption = Hex(bytArray(0))
'Label1.Caption = Label1.Caption & vbCrLf & Hex(bytArray(1))
'Label1.Caption = Label1.Caption & vbCrLf & Hex(bytArray(2))
'Label1.Caption = Label1.Caption & vbCrLf & Hex(bytArray(3))

FloatConversion = Hex(bytArray(1)) & " " & Hex(bytArray(0)) & " " & Hex(bytArray(3)) & " " & Hex(bytArray(2))

Debug.Print FloatConversion

End Function