Option Explicit

Type Value
    v As Single
End Type

Type Bytes
    v(3) As Byte
End Type

Sub Main()
    T 12158.3416
    T 3723.2475
End Sub

Sub T(ByVal v As Single)
    Dim t1 As Value, t2 As Bytes
    Dim i As Long
    
    t1.v = v
    LSet t2 = t1
    For i = 0 To 3
        Debug.Print Right$("0" & Hex(t2.v(i)), 2) & " ";
    Next
    Debug.Print
End Sub