Сравнение двух объектов (классов)

Public Class OptionSerie
    Sub New()
        name = ""
        expiry = ""
        exchange = ""
        currency = ""
    End Sub
    Property name As String
    Property expiry As String
    Property exchange As String
    Property currency As String
End Class

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim s1 As New System.Text.StringBuilder
        Dim s2 As New System.Text.StringBuilder
        s1.Append("123")
        s2.Append("123")
        If s1 = s2 Then MsgBox("true")
    End Sub

   Private Sub Tws1_contractDetailsEx(ByVal sender As Object, ByVal e As AxTWSLib._DTwsEvents_contractDetailsExEvent) Handles Tws1.contractDetailsEx
        Dim contDetails As TWSLib.IContractDetails
        Dim cont As TWSLib.IContract
        Select Case e.reqId
              Case 1
                Dim opti As New OptionSerie
                contDetails = e.contractDetails
                cont = contDetails.summary
                opti.currency = cont.currency
                opti.exchange = cont.exchange
                opti.expiry = cont.expiry
                opti.name = contDetails.marketName
                If Not OptionSerieBindingSource.Contains(opti) Then OptionSerieBindingSource.Add(opti)
        End Select
    End Sub

Dim opti1 As New OptionSerie
 
    Private Sub Tws1_contractDetailsEx(ByVal sender As Object, ByVal e As AxTWSLib._DTwsEvents_contractDetailsExEvent) Handles Tws1.contractDetailsEx
        Dim contDetails As TWSLib.IContractDetails
        Dim cont As TWSLib.IContract
        Select Case e.reqId
            Case 1
                Dim a, a1, a2, a3, a4, a5 As Boolean
                Dim opti As New OptionSerie
                contDetails = e.contractDetails
                cont = contDetails.summary
                opti.currency = cont.currency
                opti.exchange = cont.exchange
                opti.expiry = cont.expiry
                opti.name = contDetails.marketName
                If Not OptionSerieBindingSource.Contains(opti) Then OptionSerieBindingSource.Add(opti)
                a = Equals(opti, opti1)
                a1 = Equals(opti.currency, opti1.currency)
                a2 = Equals(opti.exchange, opti1.exchange)
                a3 = Equals(opti.expiry, opti1.expiry)
                a4 = Equals(opti.name, opti1.name)
                opti1 = opti
                a5 = Equals(opti, opti1)
        End Select
    End Sub