If File.Exists(pfad) Then

Private dataBasePath As String = "C:\Data" 
 
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button2.Click 
    CheckFile("0") 
End Sub 
 
Public Sub CheckFile(ByVal Etag As String) 
    Dim pfad As String = Path.ChangeExtension(Path.Combine(Me.dataBasePath, _
      Etag), "mch")
 
    If File.Exists(pfad) Then 
        ReadFile(pfad)
    Else 
        TextBox1.Text = "fail to load info" 
    End If 
End Sub 
 
Public Sub ReadFile(ByVal pfad As String) 
    TextBox1.Text = File.ReadAllText(pfad) 
End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist