Cita:
Iniciado por ReViJa 
No le has resuelto nada, haz la prueba incrementando a un valor superior a 6 y veras la parrafada de decimales que salen...
Una de las maneras seria así:
Código:
For num1 As Decimal = 1 To 8 Step 0.1
Saludos
Es cierto, prueba asi:
Dim num As Double
For num1 = 1 To 2 Step 0.1
MsgBox format(num1,"0.0")
Next
Un saludo