Private Sub cmdBerechnen_Click() 
  Dim EAN As Double, Tauchtiefe As Double, Ergebnis As Double
 
  EAN = CDbl(txtEAN.Text) / 100
  Tauchtiefe = CDbl(txtTauchtiefe.Text)
  Ergebnis = ((1 - EAN) * (Tauchtiefe + 10) / 0.79) - 10
  EAD.Caption = Format(Ergebnis "##,##0.00")
End Sub

Gruß
Marcus