Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim XDoc As New System.Xml.XmlDocument
        Dim Xfilename As String
        Xfilename = "C:\Dokumente und Einstellungen\Ramser_Fritz\Desktop\Neuer" & _
          "Ordner\beispiel.SCH"
        Try
            XDoc.Load(Xfilename)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
End Class