Eu vi vários exemplos aqui resolvidos, mas nenhum é parecido com o que uso.
Por favor me auxiliem a realizar essa operação automaticamente sem ter que clicar no botão

Private Sub CommandButton2_Click()



'Calcular a kcal do Alimento
Dim valor1, valor2, valor3 As Double

If Me.txtg1 <> "" And Me.txtkcal <> "" And Me.txtg2 <> "" Then


valor1 = Me.txtg1 'Gramas do Alimento Cadastrado
valor2 = Me.txtkcal 'Kcal do Alimento Referência
valor3 = Me.txtg2 'Gramas do Alimento Referência


Me.TextBox1 = valor1 * valor2 / valor3

End If
End Sub