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