also die Verwendung von

Chr(i) = "#"

ist nicht besonders geschickt, versuchs doch mit

if i = 35

oder besser
select case i:
case 35:
tudas xy
case 36:
tuanderes
case xy: ....... etc.
end select