Public Class ClassXml
    Private XmlPfad As String
 
    Public Property C_XmlPfad() As String
        Get
            Return XmlPfad
        End Get
 
        Set(ByVal Value As String)
            XmlPfad = Value
        End Set
    End Property
End Class

If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            Dim Employe As New ClassXml
 
            'Den kompletten Pfad der ausgewählten Datei der Klasse übergeben
            Employe.C_XmlPfad = OpenFileDialog1.FileName
 
            ds.ReadXml(Employe.C_XmlPfad)
            DataGrid1.DataSource = ds
        End If

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button2.Click
        Dim Employe As New ClassXml
        MsgBox(Employe.C_XmlPfad)
    End Sub