MessageBox.Show(ex.Message.ToString)

  Private Sub btn_Dokument_Hinzufügen_Click(sender As Object, e As EventArgs) _
    Handles btn_Dokument_Hinzufügen.Click
    Kopiere_Datei(OFD_Starten)
  End Sub
 
  'Datei auswählen
  Private Function OFD_Starten() As String
    Using ofd As New OpenFileDialog
      With ofd
        .InitialDirectory = Environment.CurrentDirectory
        .Filter = "Alle Dateien| *.*"
        .FileName = ""
        .CheckFileExists = True
        .CheckPathExists = True
        If .ShowDialog() = DialogResult.OK Then
          Return .FileName
        End If
      End With
    End Using
    Return Nothing
  End Function
 
  'Datei kopieren
  Private Function Kopiere_Datei(FileName As String) As Boolean
    If String.IsNullOrWhiteSpace(FileName) Then Return False
 
    Dim _overwrite As Boolean = False
 
    Dim AblageID = CInt(AblagedetailsIDTextBox.Text)
    DokumentTextBox.Text = FileName
    Me.Cursor = Cursors.WaitCursor
 
    Try
      Dim Ordner_Ziel = get_Dokumente_Ablage_Ordner(AblageID)
 
      Dim fi_Quelle As New IO.FileInfo(FileName)
      Dim fi_Ziel As New IO.FileInfo(IO.Path.Combine(Ordner_Ziel, _
        fi_Quelle.Name))
 
      If fi_Ziel.Exists Then
        Dim Abfrage_Result As DialogResult = MessageBox.Show( _
            String.Concat("Eine Datei mit diesem Namen ist bereits" & _
            "vorhanden: ", fi_Ziel.Name, Environment.NewLine, "Die" & _
            "vorhandene Datei überschreiben?"), _
            "Sicherheits-Abfrage", _
            MessageBoxButtons.YesNo, MessageBoxIcon.Question, _
            MessageBoxDefaultButton.Button2)
 
        If Abfrage_Result = System.Windows.Forms.DialogResult.No Then
          Return False
        ElseIf Abfrage_Result = System.Windows.Forms.DialogResult.Yes Then
          _overwrite = True
        End If
      End If
 
      'falls Ordner gelöscht wurde, Ordner erstellen
      create_Dokumente_Ablage_Ordner(AblageID)
 
      fi_Quelle.CopyTo(fi_Ziel.FullName, True)
 
      '...
 
      Me.Cursor = Cursors.Default
    Catch ex As Exception
      MessageBox.Show(ex.Message)
    End Try
  End Function