Sub HalloDu() meinText = "Frage: Was ergibt Sieben und Sieben?" Debug.Print meinText meinText = "Antwort: Jede Menge feinen Sand!" Debug.Print meinText End Sub