Error: Invalid use of Null: 'CSng'

Hola gente, hace un dia que no puedo solucionar este error, les pido por
favor su ayuda.
La funcion que les voy a transcribir al final me la ayudo a armarla Matias
Iacono de esta lista (yo no soy experto aclaro). Ocure que andaba todo

hasta que yo en la linea 10 edite agregando & " - Comentarios: " al
contenido de la linea ya existente, y a partir de ahi me sale este error:

Microsoft VBScript runtime error '800a005e'

Invalid use of Null: 'CSng'

/default.asp, line 12

Luego borre lo que agregue y igual sigue el error, mi BD es Access aclaro.
Como puedo solucionar esto ???

Gracias miles !!!
JL

function ShowItemsInCart()
Dim Key
Dim aParameters ' as Variant (Array)
Dim sTotal, sShipping
dim strResultado

1 sTotal = 0
2 For Each Key in dictCart
3 aParameters = GetItemParameters(Key)
4 'Codigo cambiado... Lo que hago aca es pasar todo a una variable
separando con -
5 'cada elemento, y con doble // cada linea... o sea que cada producto
quedaria algo asi:
6 'LLAVE;PARAMETRO1;LLAVE DEL CARRO;PARAMETRO2;NUMERO;; SIGUIENTE

7 if len(trim(strResultado)) = 0 then
8 strResultado = aParameters(1) & " - Cantidad: " & dictCart(Key)
9 else
10 strResultado = strResultado & " *** " & aParameters(1) & " - Cantidad:

&dictCart(Key)
11 end if
12 sTotal = sTotal + (dictCart(Key) * CSng(aParameters(2)))
13 Next
14 'Aplico la funcio Replace para que los insumos seleccionados se vean

a uno por renglón
15 ShowItemsInCart = Replace(strResultado,"*** ",vbCrLf)
16 'Si quieres obtener esta parte tendrias que transformar a sTOTAL en
global
17 'y podrias accederla desde cualquier lado
18 If sTotal <> 0 Then
19 sShipping = 7.5
20 Else
21 sShipping = 0
22 End If
23 sTotal = sTotal + sShipping
24 End function