Formularios con operaciones matemáticas en excel

Estoy programando el botón de calcular en un formulario

Y este es el código que he ingresado, y no me realiza las operaciones.

Quisiera saber, si el código o las variables están bien establecidos

Private Sub cmd_calcular_Click()
   'Definiendo variables
    Dim fob, flete, seguro, transp As Integer
    Dim vcf, dai, bi, iva, timpo, tadai As Double
   'Dando valor a las variables
    fob = Text_fob.Text
    flete = Text_flete.Text
    seguro = Text_seguro.Text
    transp = Text_transporte.Text
    vcf = Text_cif.Text
    dai = Text_dai.Text
    tadai = Text_tasadai.Text
    bi = Text_bi.Text
    iva = Text_iva.Text
    timpo = Text_preciototal.Text
    'calculo del valor cif
    vcf = fob + flete + seguro + transp
    Text_cif.Text = vcf
    'calculo del valor DAI
    dai = vcf * (tadai / 100)
    Text_dai.Text = dai
    'calculo del valor Base Imponible
    bi = vcf + dai
    Text_bi.Text = bi
    'calculo del valor total de importación
    timpo = bi * (13 / 100)
    Text_preciototal.Text = timpo
End Sub