Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim Datei As String = "d:\irgendwas.txt"
        Dim Inhalt As String
 
        If System.IO.File.Exists(Datei) Then
            Inhalt = System.IO.File.ReadAllText(Datei)
        Else
            Inhalt = "Die Info-Datei wurde nicht gefunden!"
        End If
 
        Label1.Text = Inhalt
 
    End Sub

EALA FREYA FRESENA