Текст с буфера не срабатывает из-за ошибки компиляции. - VB

Формулировка задачи:

положить текст в буфер пишу и не работает из-за ошибки компеляции(Argument not optional). Может че добавить надо.Раньше работало.

Private Sub Command1_Click()
Clipboard.SetData = Text1.Text
End Sub

всавляет Text1.Text = Clipboard.GetText и удаляет Clipboard.Clear нормально

Решение задачи: «Текст с буфера не срабатывает из-за ошибки компиляции.»

textual
                            Листинг программы 
                        

                            Private Sub mnuCopy_Click ()
   Clipboard.Clear
   Clipboard.SetText Text1.SelText
End Sub
 
Private Sub mnuCut_Click ()
   Clipboard.Clear
   Clipboard.SetText Text1.SelText
   Text1.SelText = ''
End Sub
 
Private Sub mnuPaste_Click ()
   Text1.SelText = Clipboard.GetText()
End Sub
                        