Minhas variaveis dooble só retorna valores inteiros

Tenho o seguinte código:

Private Sub media()
Dim cont As Double
'Conteudo
Dim Cmedia As Double
Dim Csoma As Double
'Metologia
Dim Mmedia As Double
Dim Msoma As Double
'Postura
Dim Pmedia As Double
Dim Psoma As Double

Csoma = 0
Msoma = 0
Psoma = 0
'Contador de registros
cont = 0

dta_temporario.Recordset.MoveFirst

While dta_temporario.Recordset.EOF = False
cont = cont + 1
Csoma = Csoma + dta_temporario.Recordset.Fields("Conteudo").Value
Msoma = Msoma + dta_temporario.Recordset.Fields("Metodologia").Value
Psoma = Psoma + dta_temporario.Recordset.Fields("Postura").Value
dta_temporario.Recordset.MoveNext
Wend

Cmedia = Csoma / cont
Mmedia = Msoma / cont
Pmedia = Psoma / cont

Lbl_Conteudo.Caption = Cmedia
Lbl_Metodologia.Caption = Mmedia
Lbl_Postura.Caption = Pmedia
O problema é o seguinte:

considere Csoma = 26 e cont = 7 sendo todas variáveis do tipo double

Cmedia = Csoma \ cont => Cmedia = 26 \7 => Cmedia = 3,7142857142857142857142857142857

porém o que acontece é que Cmedia recebe somente 3

=[