Pessoal,

Gostaria de saber como faço para calcular o valor em porcentagem em uma textbox.
A conta é a seguinte:

((a+b+c+d) / (a2+b2+c2+d2) * 100) / 100

Precisava que se o resultado fosse maior de 100% aparecesse uma msg de erro.
Eis aqui um exemplo de como é o formulario:

O calculo é: somam-se as textbox's dentro do frame "load factor", com exceção da textbox "load factor", divide com a soma das textbox's dentro do frame "seat configuration", e transforma o resultado em porcentagem. Se for maior de 100% aparece a msg de erro.

Estou com esse codigo mas nao ta dando certo

Private Sub loadfactor_txt_Click()

Dim loadfirst_txt As Integer
Dim loadexec_txt As Integer
Dim loadpremium_txt As Integer
Dim loadeconomy_txt As Integer
Dim seatfirst_txt As Integer
Dim seatexec_txt As Integer
Dim seatpremium_txt As Integer
Dim seateconomy_txt As Integer

loadfirst_txt = Val(loadfirst_txt.Text)
loadexec_txt = Val(loadexec_txt.Text)
loadpremium_txt = Val(loadpremium_txt.Text)
loadeconomy_txt = Val(loadeconomy_txt.Text)
seatfirst_txt = Val(seatfirst_txt.Text)
seatexec_txt = Val(seatexec_txt.Text)
seatpremium_txt = Val(seatpremium_txt.Text)
seateconomy_txt = Val(seateconomy_txt.Text)

loadfactor_txt.Text = loadfirst_txt + loadexec_txt + loadpremium_txt + loadeconomy_txt



End Sub