Что возвращает выражение:

Asc(ch1) здесь Dim ch1 As String

значение типа String, содержащее символ,

соответствующий указанному коду

значение типа Integer, представляющее код символа