Module Module1
Sub Main()
Dim A As Single
'Dim A As Double
For A = 0.01 To 0.1 Step 0.01
If (A = 0.05) Then
Console.WriteLine("Reached 0.05")
End If
Next
Console.WriteLine("Done with loop")
End Sub
End Module
Done with loop