Daj jednoducho Sub inputuser() num1 = InputBox("Zadaj rodne cislo") num2 = num1 Mod 11 MsgBox num2 End Sub