Visual Basic - ¿¿como copia a memoria??

Como por ejemplo copia un text1.text (lo que contiene) al portapapeles al presionar un boton?

Private Sub Command1_Click()
'Copia el texto al portapapeles
Clipboard.SetText Text1.Text, 1
End Sub

Private Sub Command2_Click()
'Pega texto del portapapeles
Text1.Text = Clipboard.GetText
End Sub