Dim X as long, wenn X gezählt werden soll.