IF UCase(thischar)="A" then

A=A+1

JB=A

ElseIF UCase(thischar)="B" then

B=B+1

JB=B

ElseIF UCase(thischar)="C" then

C=C+1

JB=C

ElseIF UCase(thischar)="D" then

D=D+1

JB=D

ElseIF UCase(thischar)="E" then

E=E+1

JB=E

ElseIF UCase(thischar)="F" then

F=F+1

JB=F

ElseIF UCase(thischar)="G" then

G=G+1

JB=G

ElseIF UCase(thischar)="H" then

H=H+1

JB=H

ElseIF UCase(thischar)="I" then

I=I+1

JB=I

ElseIF UCase(thischar)="J" then

J=J+1

JB=J

ElseIF UCase(thischar)="K" then

K=K+1

JB=K

ElseIF UCase(thischar)="L" then

L=L+1

JB=L

end if

Dim arr(15)

Dim i

i=asc(UCase(thischar))-65

arr(i)= arr(i)+1

JB=arr(i)