[Resolvido]diividir e multiplicar com txtBox

bom dia pessoal, podem me ajudar nessa conta?

gostaria que : a fraçao 140-idade/txtCreatinina   multiplique por 0,85  
o resultado divide por texto83/72



Private Sub txtAUC_AfterUpdate()
If txtSexo = "M" Then
   Me.txtTFG = (((140 - Idade) / txtCreatinina * 1)) / (Texto83 / 72)
   Else
   If txtSexo = "F" Then
       Me.txtTFD = (((140 - Idade) / txtCreatinina) * 0,85)) / (Texto83 / 72)


   End If
 
End If
End Sub



acho q assim esta corrreto
Me.txtTFG = (((140 - Idade) / (txtCreatinina)) * (1)) / (Texto83 / 72)

quando digito na txtCreatinina 0,5 nao calcula certo

Em VBA não se usa vírgula para separador decimal, usa-se o ponto.

0.85

perfeito obrigado pelo retorno , ficou assim:
Private Sub txtTFG_Click()
If txtSexo = "M" Then
   Me.txtTFG = ((140 - Idade) * (Texto83) / (72 * txtCreatinina))
 Else
 If txtSexo = "F" Then
 Me.txtTFG = ((140 - Idade) * (Texto83) / (72 * txtCreatinina)) * 0.85
 
   End If
 
   End If
 
End Sub

O fórum agradece o retorno. Sucesso.