On Error Resume Next
Dim x as integer
Dim xstr as string
Dim error as boolean
error = true

While error
    xstr = InputBox("Please enter a positive integer: ", "")
    If int(val(xstr)) <= 0 then
        MsgBox("You are a moron, how hard is this...? Let's try again!")
    else
        error = false
        x = int(val(xstr))
    end if
Wend