If lvShopOrderList.Items.Count = 0 Then
                    lvShopOrderList.Items.Add(MeinWert)
            Else
                    Dim OrderItem As New ListViewItem(Convert.ToString( _
                      MeinWert))
                    If Not lvShopOrderList.Items.Contains(OrderItem) Then
                           lvShopOrderList.Items.Add(OrderItem)
                     End If
           End If