選択されているセルの内容をテキストボックスに表示します。
　コマンドボタンをクリックすると、セルとテキストボックスの内容がクリア
されるようにします。

　フォームにテキストボックス「TextBox1」とコマンドボタン「CommandButton1」
を配置します。
　フォームが開かれる時に発生するイベント「Initialize」で、アクティブになって
いるセルの内容をテキストボックスにセットします。
　宣言セクションで、変数「rgeCell」を次のように宣言しておきます。

Public rgeCell As Range

Private Sub UserForm_Initialize()

    Set rgeCell = ActiveCell
    TextBox1.Text = rgeCell.Value
    
End Sub

　コマンドボタンがクリックされた時に発生するイベント「Click」で、セルとテキスト
ボックスの内容をクリアします。
　
Private Sub CommandButton1_Click()

    rgeCell.Value = ""
    TextBox1.Text = ""
    
End Sub