Equals operator overload

[trisuglow]

If I have this class...

Public Class Class 1
 
    dim mText as String
 
    Public Function ToString() As String
        ToString = mText.ToUpper
    End Function
 
End Class

... what do I have to do to be able to use it like this ...

Dim c as Class1
    c = "Potato"
    Debug.WriteLine(c.ToString)