こんにちは。

トマトさんの回答を基に作ってみるとこんな感じになります。
  

Public Structure myDouble



    Private m_Value As Double



    Public Shared Widening Operator CType(ByVal value As Double) As myDouble

        Dim re As New myDouble

        re.m_Value = value

        Return re

    End Operator



    Public Shared Narrowing Operator CType(ByVal value As myDouble) As Double

        Return value.m_Value

    End Operator



    Public Shared Operator >(ByVal value1 As myDouble, ByVal value2 As myDouble) As Boolean

        Return value1.m_Value > value2.m_Value

    End Operator



    Public Shared Operator <(ByVal value1 As myDouble, ByVal value2 As myDouble) As Boolean

        Return value1.m_Value < value2.m_Value

    End Operator



End Structure

とりあえず、演算子は < と > まで含んでいます。他に = や <> や + などなどの演算子が必要であればこの要領で自分で追加します。