Visual Basic para Aplicaciones - programa

Hola estoy realizando este programa para escribir la suma de cinco numeros aletorios por el indice es decir el primer numero por 1 el segundo por dos ...
el numero aleatorio lo defini de la fomra que aparece. pero al compilarlo me sale no coinciden los tipos me podrían ayudar a corregir tal erro y explicarme porque sale eso
saludos

Sub antitetica()
'
' antitetica Macro
'
' Acceso directo: CTRL+l
'


Dim h As Integer
Dim b, c As Double

b = 0
For i = 1 To 5
a = "=-LN(RAND())"
b = b + i * a


Next i
ActiveWorkbook.Sheets("Hoja2").Cells(7, 5).Value = b

End Sub

no coinciden los tipos porque la variable 'a' es de tipo Variant (no fue declarada
explícitamente) y al asignar
a = "=-LN(RAND())"
'a' pasa a ser de tipo String
entonces al intentar multiplicar 'i * a' se genera el error de tipos
b = b + i * a
estás intentando multiplicar un número con un texto

deberías remplazar
a = "=-LN(RAND())"
por
a = Log(Rnd)

Saludos, desde Baires, JuanC

PD: las variables 'b' e 'i' también son de tipo Variant