Attribute VB_Name = "modAllgemein"
Public Sub say(s)
Debug.Print s
End Sub