Originally posted by Harvey
View Post
GB



Public Sub Lambright() Dim x, count x = 0.61059195 Do While x < 1 x = x ^ (0.5) count = count + 1 If count > 100 Then Exit Do Debug.Print x; count Loop Debug.Print x; count; "Done" End Sub
Leave a comment: