Fragen zur Berechnung vom Taupunkt

Hallo Leute,

Habe eine Frage, zur Berechnung des Taupunktes.
Habe im Internet( 
http://www.schweizer-fn.de/lueftung/feuchte/feuchte.php )
folgende Formel gefunden:
http://www.schweizer-fn.de/lueftung/feuchte/taupunkt_form.gif

Ich habe sie nun in VB nachprogrammiert:

Function Calc_Inet_TD(ByVal Humidity As Double, ByVal Temperature As 
Double) As Double
        Dim Hochzahl As Double = (1 / 8.02)
        Calc_Inet_TD = (Humidity ^ Hochzahl)
        Calc_Inet_TD = Calc_Inet_TD * (109.8 + Temperature)
        Calc_Inet_TD = Calc_Inet_TD - 109.8
End Function

Nun habe ich auch die richtige Taupunktformel nachgeschrieben:

Function Calc_real_TD(ByVal Humidity As Double, ByVal Temperature As 
Double) As Double
        Dim h As Double
        h = (Math.Log10(Humidity) - 2.0) / 0.4343 + (17.62 * 
Temperature) / (243.12 + Temperature)
        Calc_real_TD = 243.12 * h / (17.62 - h)
End Function

Nun meine Frage:
Was mache ich falsch? Die Werte unterscheiden sich vollkommen.

WICHTIG: Ich möchte den Taupunkt ohne Gleitpunkt und Logarithmus 
ausrechnen. Nur Integer Zahlen !!!

Ein Polynomregression währe denkbar. Nur fehlt mir da der mathematische 
Ansatz.