Ejecutar procesos de una interfaz

Para ...'asignarle una celda al texbox1' podes agregar esta línea a tu código:

Sub form_cálculo_precio()
'toma el valor de la celda activa
Cálculo_Precio.TextBox1 = ActiveCell.Value
'siguen tus instrucciones
End Sub

También es válido tu código dentro del UF (por supuesto que solo utilizarás 1 de los 2 ejemplos) pero debe ir en el evento Initialize del Userform (sin indicarle el nombre del UF)

Private Sub Userform_Initialize()
TextBox1 = Sheets("Evaluación").Range("D3")
End Sub

Si esto resuelve tus dudas no olvides valorar y finalizar.

Pero como puedo ejecutar la interfaz, ¿qué se apreté el botón solo calcular?

TENGO ESTO 

Private Sub UserForm_Initialize()
Cálculo_Precio.TextBox1.Text = Sheets("Evaluación").Range("h23").Value
Set OptionButton1.Value = True
CommandButton1_Click

End Sub

PERO AL QUERER QUE CommandButton1_Click ME SALE e ha producido el error 91 en tiempo de ejecución: variable de ejecución o bloque with no establecido

En el mismo evento Initialize agregá la instrucción:

Private Sub Userform_Initialize()
TextBox1 = Sheets("Evaluación").Range("D3")
Call CommandButton1_Click
End Sub

¿Ahora yo me pregunto para qué entonces un Userform? ¿Por qué no todo el proceso de cálculo solo en el botón de la hoja?... es una idea..

Sdos!

Me sale el mismo error :-/ , me pregunto lo mismo pero el Userform tiene 2 botones de opción :/

Vayamos en orden... mientras te respondo vas agregando otros códigos que yo no te pasé.

Utiliza solo lo que te envié y luego me comentas.

Sdos!