Hola:

Tu mismo estas indicando que

Public a As Integer
Public b As Integer
Public c As Integer
Public d As Integer

son enteros, entonces evidentemente pierdes los decimales. Ahí tienes...