Up till now, I relied on the main clipboard for multiple line copies, and use clipboard 1-3 for single line words, phrases, code…

Thanks again.

Maybe others have better versions, especially the software people have developed, but here is my command, after updating, if anybody else is interested in it.

'#Language "WWB-COM"

Option Explicit
Sub Main
Dim oFSO As New FileSystemObject
Dim oFS As Object
Dim sText As String
Dim CBMaster As String
    On Error Resume Next
        CBMaster = Clipboard
        Select Case ListVar1
            Case "Copy"
                Select Case ListVar2
                Case "one"
                    SendSystemKeys "{Ctrl+c}"
                    Set oFS = oFSO.CreateTextFile("C:\ProgramData\Clip1.txt", True)
                    oFS.Write(Clipboard)
                Case "two"
                    SendSystemKeys "{Ctrl+c}"
                    Set oFS = oFSO.CreateTextFile("C:\ProgramData\Clip2.txt", True)
                    oFS.Write(Clipboard)
                Case "three"
                    SendSystemKeys "{Ctrl+c}"
                    Set oFS = oFSO.CreateTextFile("C:\ProgramData\Clip3.txt", True)
                    oFS.Write(Clipboard)
                End Select
            Case "Paste"
                Select Case ListVar2
                Case "one"
                    Set oFS = oFSO.OpenTextFile("C:\ProgramData\Clip1.txt")
                    Do Until oFS.AtEndOfStream
                    sText = sText & oFS.ReadLine & vbNewLine
                    Loop
                    Clipboard sText
                    SendSystemKeys "{Ctrl+v}"
                Case "two"
                    Set oFS = oFSO.OpenTextFile("C:\ProgramData\Clip2.txt")
                    Do Until oFS.AtEndOfStream
                    sText = sText & oFS.ReadLine & vbNewLine
                    Loop
                    Clipboard sText
                    SendSystemKeys "{Ctrl+v}"
                Case "three"
                    Set oFS = oFSO.OpenTextFile("C:\ProgramData\Clip3.txt")
                    Do Until oFS.AtEndOfStream
                    sText = sText & oFS.ReadLine & vbNewLine
                    Loop
                    Clipboard sText
                    SendSystemKeys "{Ctrl+v}"
                End Select
            Case "Cut"
                Select Case ListVar2
                Case "one"
                    SendSystemKeys "{Ctrl+x}"
                    Set oFS = oFSO.CreateTextFile("C:\ProgramData\Clip1.txt", True)
                    oFS.Write(Clipboard)
                Case "two"
                    SendSystemKeys "{Ctrl+x}"
                    Set oFS = oFSO.CreateTextFile("C:\ProgramData\Clip2.txt", True)
                    oFS.Write(Clipboard)
                Case "three"
                    SendSystemKeys "{Ctrl+x}"
                    Set oFS = oFSO.CreateTextFile("C:\ProgramData\Clip3.txt", True)
                    oFS.Write(Clipboard)
                End Select
        End Select
        Clipboard CBMaster
    If Err.Number <> 0 Then
        Beep
    End If

End Sub