クリップボードへ文字列をコピーする
'*************************************
'フォーム上に必要なコントロール:
'CommandButton(Command1)、TextBox(Text1)
'*************************************
Private Sub Command1_Click()
'もし、選択されている文字があったら
If Text1.SelLength > 0 Then
'クリップボードにそれをコピー
Clipboard.SetText Text1.SelText
End If
End Sub

クリップボードへ文字列を切り取りする
'*************************************
'フォーム上に必要なコントロール:
'CommandButton(Command1)、TextBox(Text1)
'*************************************
Private Sub Command1_Click()
'もし、選択されているテキストがあったら、
If Text1.SelLength > 0 Then
'それをクリップボードにコピーし、その文字列を初期化
Clipboard.SetText Text1.SelText
Text1.SelText = ""
End If
End Sub