求助： vb 数据转成 float 方法

代码如下：

Option Explicit
Private Type makelong
    l As Long
End Type
Private Type makesingle
    f As Single
End Type
Private Sub Form_Load()
    Dim tl As makelong
    Dim tf As makesingle
    tl.l = &H44960000
    LSet tf = tl
    Debug.Print tf.f
End Sub