Public Kunden As New System.Collections.Generic.SortedList(Of String, Kunden)
 
  CusKey = System.Guid.NewGuid().ToString()
 
 Kunden.Add(CusKey, New Kunden(Name)

Private mName As String
 
Public Sub New (ByVal mName As String)
Me.Name = mName
 
    Public Property Name() As String
        Get
            Return mName
        End Get
        Set(ByVal value As String)
            mName = value
        End Set
    End Property

clsetc.test()

 Dim service As New Service
   Return service.CustomerData(service.CusKey).Name