Private Sub BtnAssembly_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles BtnAssembly.Click
        With Me.DlgOpenFile
            .CheckFileExists = True
            .CheckPathExists = True
            If .ShowDialog() = Windows.Forms.DialogResult.OK Then _
              Me.FldPfadAssembly.Text = .FileName
        End With
       [...]    
End Sub

pearland.de