SoloCodigo

Hola soy nuevo programando y no entiendo completamnete q hacen estos if:

If InStr(1, txtHora(Index), ".") > 0 Then
            KeyAscii = 0
 End If
               
If Not IsNumeric(Chr(KeyAscii)) Then
            KeyAscii = 0
End If

If Not IsNumeric(Chr(KeyAscii)) Then
            KeyAscii = 0
End If

En la 2ª parte le está diciendo que si 'KeyAscii' no es un número, se le asigne el valor 0.
Son 3 funciones anidadas dentro de un condicional. Se debe analizar siempre por el de más adentro:
chr(nº) = dame el carácter que corresponde a este nº
isnumeric(caracter) = es un número el caracter ?
not isnumeric()  = NO es un número el caracter ?

por tanto:
if ..... then = SI (no(es un número(el caracter nº(KeyAscii)))) LUEGO