Function VBGetSwfVer()
    On Error Resume Next
    Dim swControl, swVersion

    swVersion = Nothing

    Set swControl = CreateObject("ShockwaveFlash.ShockwaveFlash")

    If (IsObject(swControl)) Then
        swVersion = swControl.GetVariable("$version")
    End If

    VBGetSwfVer = swVersion
End Function