dim x as double 'Mesmo o número sendo inteiro, ele pode ser maior que 32.767
x = val(text1.text) / val(text2.text) 'Divide o valor em text1 pelo valor em text2
x = int(x) 'x fica com o valor intero dela própria (se x era 3.12, ficará 3, por exemplo)
text3.text = str(x) 'text3 fica com o valor de x