Sub inputuser()
Dim num1 As Long
Dim num2 As Long
num1 = InputBox("Zadaj rodne cislo")
MsgBox (num1)
End Sub
Vypise > run time error 6
Overflow
Sub inputuser()
Dim num1 As Long
Dim num2 As Long
num1 = InputBox("Zadaj rodne cislo")
MsgBox (num1)
End Sub
Vypise > run time error 6
Overflow