Um jeito simples:
Private Sub CommandButton1_Click() Range("A1").Formula = "=" & TextBox1 MsgBox Range("A1") End Sub
Certifique-se de que a célula A1 está vazia.