Mi código en VISUAL BASIC no compila, para hacer operación matemática

Quiero pasar la siguiente operación matemática en visual basic:

fx=(D14*G14)+(SI(H14>1;D14*H14*I14;D14*I14))

Este es mi código:

Dim d, g, h, i

d = Val(Preciomedico)

g = Val(Unidades)

h = Val(Unidadescaja)

i = Val(N°cajas)

Dim Resultado1 As Integer
Dim Resultado2 As Integer

Resultado1 = (d * g)

If (h > 1) Then

Resultado2 = (d * h * i)

Dim Suma As Integer

Suma = Resultado1 + Resultado2

Else
Suma = (d * i) + Resultado1

Suma = Cells(Rows.Count, 10).End(xlUp).Offset(1, 0).Row

End If

Esta dentro de un formulario, y pretendo que a medida que se vayan generando valores en los textbos y comboBox, me genere esa operación en la columna respectiva.