Copy selection to clipboard

Sub  CopyToClipboard()
Clipboard.Clear
If txtVisible.SelLength = 0 Then
   Clipboard.SetText txtVisible.Text
Else
   Clipboard.SetText txtVisible.SelText
End If
End Sub