sub control_input_2(nam)
el_name = nam
 l_s = Left(document.all(el_name).value,1)
 r_s = Right(document.all(el_name).value,1)
  if  Asc(l_s) < 48 or Asc(l_s) > 57 then 
   alert("Символ должен быть цифрой")
   document.all(el_name).focus()
  end if
  if  Asc(r_s) < 48 or Asc(r_s) > 57 then 
  alert("Символ должен быть цифрой")
    document.all(el_name).focus()
  end if
end sub

При нажатии табуляции или клике мыши на другом элементе в случае с некорректными данными сообщение выдается, но фокус не возвращается.

Выглядит так:

sub control_input_2(nam)
el_name = nam
if document.all(el_name).value <> "" then
if len(document.all(el_name).value) > 2 then
 alert("Поле должно содержать не более двух символов!")
 document.all(el_name).focus()
else
 if len(document.all(el_name).value) = 2 then
 l_s = Left(document.all(el_name).value,1)
 r_s = Right(document.all(el_name).value,1)
  if  Asc(l_s) < 48 or Asc(l_s) > 57 or Asc(r_s) < 48 or Asc(r_s) > 57 then 
   alert("Символ должен быть цифрой!")
    document.all(el_name).focus()
  end if
 else
  l_s = document.all(el_name).value
  if  Asc(l_s) < 48 or Asc(l_s) > 57 then 
   alert("Символ должен быть цифрой!")
    document.all(el_name).focus()
  end if
 end if
end if
end if
end sub