Private Sub sevGrid1_StartEditMode(ByVal nRow As Long, ByVal nCol As Long, _
  sText As String, bCancel As Boolean)
 
If nCol = 3 Then
 
On Error Resume Next
  With CommonDialog1
    .CancelError = True
    .Filter = "alle Dateien (*.*)|*.*"
    .InitDir = sText
    .ShowOpen
    If Err.Number = 0 Then
     sText = .FileName
    End If
  End With
 
  On Error GoTo 0
End If
 
End Sub