With dlg
                .InitialDirectory = path
                .Title = "Angebot auswählen"
                .Filter = "(*.pdf)|*.pdf"
                If .ShowDialog = Windows.Forms.DialogResult.OK Then
                    Select Case btn.Name.ToLower
                        'Case "Button1"
                        'Me.txtFile10.Text = .FileName
                        'Case "cmdfile2"
                        'Me.txtFile2.Text = .FileName
                        'Case "cmdfile3"
                        'Me.txtFile3.Text = .FileName
                    End Select
                End If
            End With