Public Class main
 
Public Protokoll As New collection
 
Public Sub nachricht_in_Protokoll(ByVal nachricht As String)      
        Protokoll.Add(nachricht)
End Sub
 
End class

Public Class CClient
 
Public Sub add_nachricht
        main.nachricht_in_Protokoll("Testnachricht")
End Sub
 
End Class