Private Sub Button2_Click(ByVal sender As Object, _
     ByVal e As System.EventArgs) Handles Button2.Click
 
        Dim row As Int16
        Dim column As Int16
        row = DataGridView1.CurrentCell.RowIndex
        column = DataGridView1.CurrentCell.ColumnIndex
 
 
 
        With OpenFileDialog1
            .InitialDirectory = "C:\"
            .Title = "Bitte wählen Sie ihre Datei aus:"
            .ShowDialog()
        End With
 
        DataGridView1(row, column).Value = OpenFileDialog1.FileName
 
 
    End Sub