target  : (3,0x6A) CVarR4
status  : emitted
from    : discovery snippet 'castv_R4_CSng' (minimised)

' ---- modProbe.bas
Option Explicit

Public Sub Main()
  Dim a As Single, c As Variant
  c = CSng(a)
End Sub

target disasm lines:
  modProbe.Sub Main | 40144F    FD6A 58FF             CVarR4 var_A8
