Hola,
Si el error sucede la primera vez que entra al bucle si no has inicializado las variables interpreta como un string.
Dim total_curso
Dim total_sence
Dim total_empresa
total_curso = 0
total_sence = 0
total_empresa = 0
Otro cosa puede ser que uno de los campos devuelva NULL.
Espero que te sirva,
Saludos.