VB.Net by API/System/IFormattable

Implements IFormattable

  
 
Class YourClass
    Implements IFormattable
    Implements IComparable
    Public Value As String
    Public Overridable Overloads Function ToString(ByVal Format As String, ByVal Provider As IFormatProvider) As String Implements IFormattable.ToString
        ToString = Value
    End Function
    Public Overridable Overloads Function CompareTo(ByVal A As Object) As Integer Implements IComparable.rupareTo
        If (Value = A.Value) Then
            CompareTo = 0
        ElseIf (Value < A.Value) Then
            CompareTo = -1
        Else
            CompareTo = 1
        End If
    End Function
    Public Sub New(ByVal Value As String)
        Me.Value = Value
    End Sub
End Class
Module Module1
    Sub Main()
        Dim A As New YourClass("Hello")
        Dim B As New YourClass("Hi")
        Console.WriteLine(A)
        Console.WriteLine(B)
        Console.WriteLine(A.rupareTo(B))
    End Sub
End Module