Cut()

Recorta o texto previamente selecionado para a Área de Transferência. Utilize o método Paste para colar o texto no local indicado. Exemplo:

Sub CommandButton1_Click()
  Screen.Item("ComboBox1").Cut()
End Sub