Visual Basic: Описать функцию DigitN (K, N) целого типа, возвращающую N-ю цифру целого положительного числа К

[Екатерина23]

Описать функцию DigitN (K, N) целого типа, возвращающую N-ю цифру целого положительного числа К (цифры в числе нумеруются справа налево). Если количество цифр в числе К меньше N, то функция возвращает -1. Для каждого из пяти данных целых положительных чисел K1, K2, ..., K5 вызвать функцию DigitN с параметром N, изменяющимся от 1 до 5.

[DiemonStar]

как-то так (не проверял, если что):

Function DigitN(ByVal K as Integer, ByVal N as Integer) as Integer
  DigitN = IIf(K < 0, -1, IIf(Len(CStr(K)) < N; -1; CInt(Left(Right(Str(K), N),1))))
End Function