Il calcolo non l'ho controllato, ma mi sembra che dia un risultato diverso da zero (a meno che non sia l'utente ad inserire zero da tastiera). Quello che mi fa pensare è che tu inizi il For così: For J = 0 To I - 1 , ma I non è inizializzata da nessuna parte...