Rounding problem

[Pearso]

I have a cell in excel that contains the value 0.13

when using the following VBA code it reads the value as zero.

Dim ActivHours As Integer
 
ActivHours = 0#
 
ActivHours = Sheets("Amanda").Cells(x, 9)

i.e. Sheets("Amanda").Cells(x, 9) is actualy 0.13
but ActivHours reads as 0 when going
MsgBox ActivHours

Does anyone know what the problem is with this code.

Thanks,