Problema de y con Clases!

[xknown]

Código:

Imports System.Collections
 
Namespace System.Collections
  Public Class ShopCart
   Dim CartItems As New Hashtable
   Public Sub addToCart(Id, Quantity)
	 if CartItems.Contains(Id) then
	  CartItems.Add(Id, Quantity)
	 else
	  CartItems.Add(Id, 1)
	 End If
    End Sub
   Public Sub DeleteProduct(Id)
    CartItems.Remove(Id)
   End Sub
  End Class
End Namespace

Según el código que muestras, estás ubicando tu clase dentro del espacio de nombres System.Collections, consecuentemente deberías crear tu clase de la siguiente forma:

Código:

Sub Page_Load(Sender As object, E As EventArgs)
        Dim MyCart As New System.Collections.ShopCart 
        MyCart.AddToCart(15,8)
    End Sub

Lo mejor sería que utilizes un espacio de nombres relacionado a lo que estás haciendo, por ejm:
Namespace TuEmpresa.TuArea.TuClase

Saludos