How to paste the data in the current cell when the ListBoxSelectionMode is enabled in WinForms GridControl?

this.gridControl1.ListBoxSelectionMode = SelectionMode.One;
this.gridControl1.ClipboardCanPaste += new GridCutPasteEventHandler(gridControl1_ClipboardCanPaste);
void gridControl1_ClipboardCanPaste(object sender, GridCutPasteEventArgs e)
{
    //Checks whether the range is a Row.
    if (e.RangeList.ActiveRange.RangeType == GridRangeInfoType.Rows)
    {
        GridCurrentCell currentCell = this.gridControl1.CurrentCell;
        if (currentCell != null)
        {
            //Gets the Clipboard text.
            string clipboardText = Clipboard.GetDataObject().GetData(DataFormats.UnicodeText) as string;
            //Sets the ClipBoard text to the current cell.
            this.gridControl1.Model.TextDataExchange.PasteTextFromBuffer(clipboardText, currentCell.RangeInfo, e.ClipboardFlags);
            e.Result = false;
            e.Handled = true;
        }
    }
}

Me.gridControl1.ListBoxSelectionMode = SelectionMode.One
AddHandler gridControl1.ClipboardCanPaste, AddressOf gridControl1_ClipboardCanPaste
'Handles the ClipboardCanPaste event.
Private Sub gridControl1_ClipboardCanPaste(ByVal sender As Object, ByVal e As GridCutPasteEventArgs)
    'Checks whether the range is a Row.
     If e.RangeList.ActiveRange.RangeType = GridRangeInfoType.Rows Then
           Dim currentCell As GridCurrentCell = Me.gridControl1.CurrentCell
              If currentCell IsNot Nothing Then
                  'Gets the Clipboard text.
                   Dim clipboardText As String = TryCast(Clipboard.GetDataObject().GetData(DataFormats.UnicodeText), String)
                 'Sets the ClipBoard text to the current cell.
           Me.gridControl1.Model.TextDataExchange.PasteTextFromBuffer(clipboardText, currentCell.RangeInfo, e.ClipboardFlags)
                 e.Result = False
                 e.Handled = True
             End If
       End If
End Sub