If Clipboard.ContainsText() Then
      DataGridView1.Columns.Clear()
      DataGridView1.Rows.Clear()
 
      Dim c As Char() = {ControlChars.Lf, ControlChars.Tab}
      Dim items As String() = Clipboard.GetText().ToString().Split(c)
 
      For i As Integer = 0 To items.Length - 1
          datagridview1.Columns.Add(i.ToString(), items(i))
      Next i
 
      datagridview1.Rows.Add(items)
 
   End If