Dim s As String = "xxx"
        If TypeOf s Is IComparable Then
            MsgBox("Supports IComparable")
        End If

        Dim i As Integer
 
        If TryCast(i, IComparable) IsNot Nothing Then
            MsgBox("Supports IComparable")
        End If

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist