Составить программу в VBA
Дано натуральное четырехзначное число. Определить цифры этого числа (К, L, M, N) и выяснить, можно ли построить параллелограмм со сторонами K, L, M, N.

Input KLMN
K=KLMN div 1000
L=(KLMN mod 1000) div 100
M=(KLMN mod 100) div 10
N=RLMN mod 10
IF (K=L AND M=N) OR (K=M AND L=N) OR (K=N AND L=M)
  THEN PRINT " ПРЯМОУГОЛЬНИК"
  ELSE PRINT " НЕ ПРЯМОУГОЛЬНИК"