I amuse myself while I code...

    Public Function DoYouHaveOneLike(ByVal ItemShape As String) As Boolean
        Dim gofish As Boolean = False
        For Each i As KeyValuePair(Of Integer, Thing) In InventoryItems
            If i.Value.shape = ItemShape Then
                gofish = True
            End If
        Next
        For Each i As KeyValuePair(Of Integer, Thing) In AttachedItems
            If i.Value.shape = ItemShape Then
                gofish = True
            End If
        Next
        Return gofish
    End Function