Il logaritmo di VB e' naturale (in base e).

Se tu vuoi usare il logaritmo in base 10, devi dividere il logaritmo in base e trovato per il logaritmo in base e di 10. Quindi

d = FormatNumber((10 * Log(b * 60 * 60 / 28800) / Log(10)), 2)