VBA Editor: Validering af data i en textbox

Hvis det ikke nødvendigvis behøver at være en textbox, så kan data validering ordnes på en meget nem måde for en celle.
Marker en celle, gå ind i datavalidering i data rullegardinet, vælg tillad heltal, vælg data mellem, indtast dine grænser, udfyld evt. de andre faneblade.
Nemt og hurtig.
Hvis det skal være en textbox, så bliver du nødt til at spørge en anden.

A = int(val(tekstbox.value)
B = val(tekstbox.value)
If B <> A then
Msgbox "det er ikke et heltal"
exit sub
end if
If A < 1 or A > 99 then
msgbox " Det skal være mellem 1 og 99"
end if

if IsNumeric (tekstbox.value)then ' hvis det er tal gå videre
A = int(val(tekstbox.value)
B = val(tekstbox.value)
If B <> A then
Msgbox "det er ikke et heltal"
exit sub
end if
If A < 1 or A > 99 then
msgbox " Tallet skal være mellem 1 og 99"
exit sub
end if
msgbox " Det skal være tal"
end if

if IsNumeric (tekstbox.value)then ' hvis det er tal gå videre
A = int(val(tekstbox.value)
B = val(tekstbox.value)
If B <> A then
Msgbox "det er ikke et heltal"
exit sub
end if
If A < 1 or A > 99 then
msgbox " Tallet skal være mellem 1 og 99"
exit sub
end if
else
msgbox " Det skal være tal"
end if


der manglede lige et Else

takker :)