Private Sub Command1_Click()
Call VB.Clipboard.SetText(Text1.Text)
End Sub
Private Sub Command2_Click()
MsgBox VB.Clipboard.GetText
End Sub