Visual Basic - Duda en calculo

Hola!
Resulta que debo de realizar el siguiente calculo:
resultado(l) = (suma / (raizCuadrada_d * raizCuadrada_P)) , y claro quiero que en el array resultado se guarde el resultado con los correspondientes decimales, porque solo se guardan los enteros.LA funcion en la que lo utilizo es la siguiente:

Private Function CalcularCoseno(Dolencia() As InfDolencia, vctSintomas() As Long) As Long()

ReDim resultado(1 To 20) As Long

For l = 1 To 20
For m = 1 To 10
suma = Dolencia(l).Sint(m) * vctSintomas(m) + suma
If Dolencia(l).Sint(m) = 1 Then
unos_D = unos_D + 1
End If
If vctSintomas(m) = 1 Then
unos_P = unos_P + 1
End If
Next m
If unos_P <> 0 And unos_D <> 0 Then
raiz_d = Sqr(unos_D)
raiz_P = Sqr(unos_P)
resultado(l) = (suma / (raiz_d * raiz_P)) 'Esto quiero QUE SE GUARDEN DECIMALES
End If
Next l
CalcularCoseno = resultado

End Function

Que podria hacer?

Muchas gracias de antemano

¿Cómo vas a guardar las decimales, si el array es de tipo Long (ENTERO largo, pero entero, al fin y al cabo)? debería ser Double, ¿no?