scusami ma lo scritto senza testarlo.......
n=n+1 lo devi mettere come sotto e non prima

if mid(stringa,i,1)="," then
n=n+1