VB.Net by API/System/IFormattable

Implements IFormattable

<source lang="vbnet">

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

 </source>