Public Shared Function Externe_Meldung_Anzeigen() As String
        'Prüfen ob Datei für Externe Meldung erreichbar ist.
        Dim Externe_Meldungsdatei_Vorhanden As Boolean = IO.File.Exists(Pfad_Externe_Meldung)
        If Externe_Meldungsdatei_Vorhanden = False Then
            Exit Function
        Else
            Dim Inhalt_Externe_Meldung As String = IO.File.ReadAllText(Pfad_Externe_Meldung)
            Return Inhalt_Externe_Meldung
            IO.File.Delete(Pfad_Externe_Meldung)
        End If
    End Function

lblMeldungstext.Text = Externe_Meldung_Anzeigen()