疑似マルチクリップボードを作りたい

前提・実現したいこと

テキストを10個までコピー出来る疑似マルチクリップボードのようなアプリを作りたいと思っておりますが、ExcelVBA以外のプログラム経験が無く、そもそも何をすれば良いのかがわかりません。開発環境・使用環境はWindows10の初期バージョンです。会社が更新してくれません。メモ帳で書けるVBSか、オンラインで使えるというVisualStudioで開発出来ればと思います。

アプリの内容は次の通りです。

・コピー内容を可視化するための枠1～10を作成（テキストの冒頭だけでも表示出来ていればOK）。
・コピー用ショートカットキー1を押すと、現在選択しているテキスト（フォント情報なし）が、枠1にコピーされる。以下10まで同じ。
・ペースト用ショートカットキー1を押すと、枠1の内容が現在のカーソル位置にペーストされる。以下10まで同じ。
・オールクリア用ショートカットキーが押すと、枠1～枠10が全て空になる。

ExcelVBAで作ったのが以下のコードですが、当然Excel上でしか動きません。これをWindows上のどこでも「Selection」になり得るようにしたいのです。

そのままExcelをフォームとして使えれば最高ですが、無理ならばVB等で何とかフォームを作ろうと思います。

以上のことをどうすれば実現出来るのか、VBSまたはVBでどんな命令を使えば良いのか、大雑把にでもご教授頂けましたら幸いです。

該当のソースコード

'ThisWorkbookに書くもの
Private Sub Workbook_Open()
    Application.OnKey "%{F1}", "Copy01"
    Application.OnKey "%{F2}", "Copy02"
    Application.OnKey "{F1}", "Paste01"
    Application.OnKey "{F2}", "Paste02"
    Application.OnKey "{F12}", "AllClear"
End Sub
'---------------------------------------
'シートのモジュールか何かに書くもの
Sub Copy01()
    Range("A1").Value = Selection
End Sub

Sub Copy02()
    Range("A2").Value = Selection
End Sub 'サンプルなので2までしかありませんが、実際には「Copy10()」まで作ります。

Sub Paste01()
    Selection = Range("A1").Value
End Sub

Sub Paste02()
    Selection = Range("A2").Value
End Sub 'サンプルなので2までしかありませんが、実際には「Paste10()」まで作ります。

Sub AllClear()
    Range("A1:A10").Value = ""
End Sub