ok...puedes valerte del uso de split, que generará un arreglo a partir de un caractér usado como delimitador, el resto es historia vuestra
Código:
arrDireccion = split(rs("campo"), ",")
if isArray(arrDireccion) then
'aqui se hace algo, si hay una direccion
'puedes contar el máximo índice de este arreglo con uBound(arrDireccion)
else
'aqui no hay direccion
end if
Esta
lectura te puede servir en desarrollos posteriores.
Saludos