Paste from Clipboard

[Sharid]

Hi
My following code, pastes from clipboard. I have set the Control Source for Textbox2 as Cover!$B$2 as I want the data pasted in to B2 down.

This is the problem
It pastes ALL of the data in B2, so if I have copied 10 rows it pastes all data in B2, where as I would like it to paste the first row in B2 and the B3 and so on

Private Sub CommandButton6_Click()
'Pastes from ClipBoard
Dim objdataobject As MSForms.DataObject
Set objdataobject = New MSForms.DataObject
objdataobject.GetFromClipboard
If Me.TextBox1.Value = "" Then
Me.TextBox1.Value = objdataobject.GetText
Exit Sub
End If

End Sub

 

[Sharid]

Its ok, I think I have done it with this

Private Sub CommandButton6_Click()

 Dim Str As String, a
 Dim cnt As Integer
 Dim w()
 
 Str = TextBox1.Value
  a = Chr(10)
   cnt = UBound(Split(Str, a))
 ReDim w(1 To cnt + 1, 1 To 1)
 
 For i = 0 To cnt
  w(i + 1, 1) = Split(Str, Chr(10))(i)
 Next i

 Sheet6.Range("A2").Resize(i, 1) = w

End Sub