Como utilizar los datos de un formulario

Hola a todos,
Estoy trabajando con una macro en la que aparece un userform en el que tengo un textbox y un commandbutton.
Cuando se clicka sobre el commandbutton se ejecuta un macro con el que se copia el valor del textbox en la celda C17
y el userform desaparece de pantalla y se sigue ejecutando la macro. Al seguirse ejecutando, necesito el valor de la celda C17 pero no sé muy bien el porque la macro no coge el valor de la celda C17.
Os copio el código de la macro para ver si os es de más ayuda que mi explicación.
Código del macro
        'enseña el formulario que pide el %de perímetro expuesto al exterior
        UserForm1.Show
        'calcula e y escribe el dato en pantalla
        Cells(19, 7).Value = Peri
        Cells(20, 7).Value = Area
        tantoporciento = Cells(17, 3).Value
        tantoporciento = tantoporciento / 100
        Peri2 = Peri * tantoporciento
        Cells(21, 7).Value = tantoporciento
        Cells(22, 7).Value = Peri2
        e = (2 * Area) / Peri2
        Cells(16, 3).Value = e / 1000
código del userform
Private Sub Okbutton_Click()
'   Make sure a number is entered
    If TextName.Text = "" Then
        MsgBox "You must enter a number."
        Exit Sub
    End If
'   Transfer the name
    Cells(17, 3).Value = TextName.Text
    tantoporciento = TextName.Text
'   Clear the controls for the next entry
    TextName.Text = ""
    OptionUnknown = True
    TextName.SetFocus
'   Hace desaparecer el formulario
    Unload UserForm1
End Sub