Si mi restituisce il seguente errore:
Errore di run-time di Microsoft VBScript error '800a0005'

Chiamata di routine o argomento non validi: 'sin'

la riga incriminata è:
dist = sin(deg2rad(lat1)) * sin(deg2rad(lat2)) + cos(deg2rad(lat1)) *cos(deg2rad(lat2)) * cos(deg2rad(theta))