Loop Involving Multiple IF Statements

I want to loop through a range of cells changing the value of each cell by increments of 0.01 until a value of 10 is reached.

If the loop encounters a blank cell I want it to start the loop at M110 again

If the starting value of cell M117 is greater than 10 then I want the loop to use -0.01 increments to reach 10

If the starting value of cell M117 is less than 10 then I want the loop to use +0.01 increments to reach 10

This is what I have written so far...

Sub Test()
Dim i As Single
i = 0.01

Range("M110").Select
Do Until Range("M117").Value = 10

[Code] .......