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)
            Dim lines As String() = Clipboard.GetText().ToString().Split( _
              ControlChars.Lf)
 
            For i As Integer = 0 To lines.Length - 1
                DataGridView1.Columns.Add(i.ToString(), items(i))
            Next
 
            For i As Integer = 0 To lines.Length - 2
                If i <> 0 Then
                    DataGridView1.Rows.Add(lines(i).Split(ControlChars.Tab))
                End If
            Next
        End If

   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