Truco de Visual Basic.NET - Pegar desde el portapapeles

Private Sub PegarBtn_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) _
Handles PegarBtn.Click
' pegar en el textbox lo que haya en el clipboard
' si hay alguna selección sustituirlo
If TextBox1.SelectionLength = 0 Then
' si no hay selección, se sustituirá lo que había
TextBox1.SelectAll()
End If
TextBox1.Paste()
End Sub