Подсчитать количество символов между двумя первыми восклицательными знаками- QBasic(Бейсик)

input a$
for i=1 to len(a$)
if mid$(a$,i,1)="!"then k=k+1 else if k=1 then n=n+1
next
print n