Decimales con Excel

Estoy multiplicando celdas de Excel mediante código:
Ejemplo_________________________________
Private Sub CommandButton1_Click()
Dim num As Single
Dim factor As Single
With Hoja1
factor = .Cells(1, 2).Value
num = .Cells(1, 1).Value * factor
.Cells(1, 3).Value = num
End With
End Sub

Donde:
Hoja1.cells(1,1).value=0,017
Hoja1.cells(1,2).value=1
Hoja1.cells(1,3).value=0,017000000923872(resultado de la
multiplicación)
Salen muchos decimales incorrectos, ya que el resultado
debe ser 0.017
sabeis a que es debido?cómo puedo solucionarlo?

.