Mil Gracias a todos por su grandiosa colaboracion, en realidad si me toco romperme el coco, y porfin , encontre la solucion, de tanto indagar y un amigo me dijo que realizara un proceso iteractivo hasta que me diera el resultado y listo, esa fue la solucion, pues pondre el codigo fuente de la solucion de esa formula
Public Sub Friccion()
If rE = 0 Then 'Esta es la friccion sin Reynols ya que es 0
f = 1 / (-2 * (Log((e / Dm) / 3.7 + (2.51))) / Log(10)) ^ 2
Else 'esta si es la friccion completa
fc = 0.01
Do
f = 1 / (-2 * (Log((e / Dm) / 3.7 + (2.51 / (rE * Sqr(fc))))) / Log(10)) ^ 2
If (Val(f) = Val(fc)) Then
Exit Sub
End If
fc = f
Loop
End If
End Sub
de esta manera solucione y termino mi dolor de cabezas. nuevamente gracias a todos
