Résolution d'une équation itérative

bonjour

sil vous plait aidez moi dans ce probleme

je voudrais ressoude une équation itérative par la programmation vba
voici lequation que je voudrais résoudre (k) :

1/sqr(k)= (-2 * (Log((psi / (3.7 * d)) + (2.52 / (Sqr(k) * re))))

voici le programr que jai mis



Dim k As Currency, r As Currency
k = 0
r = 0
'--------------------------
Dim re As Double, psi As Double, d As Double


psi = 0.002
d = 0.007
re = 4046
'--------------------------
While r <= 1
k = k + 0.0001
r = (-2 * (Log((psi / (3.7 * d)) + (2.52 / (Sqr(k) * re)))) / (Log(10))) * Sqr(k)
Wend
MsgBox ("Pour re = " & re & vbCrLf & "k = " & Format(k, "0.0000"))
End Sub


le probleme c que ca marche pour les petites valeur de "psi" et les grandes valeures de "d" ( exemple psi =0.002, d=0,007 la ca marche ou psi = 0,002 , d= 7 ca marche ) mais pour les grandes valeurs de "psi" et les petites de valeures de "d" le programme bloque (psi = 0,03 d= 0,007 le programe bloque, ou encore si je mis psi = 0.002 , et que d= 0,000007 ca bloque aussi )
je ne sais pas ou est le probleme

sachant que d, re , et psi sont variable donc a chaque fois je les varies

merci davence pour votre aide