2 spørgsmål om tal.

Det, de gør i artiklen, er at de opretter en ny form i projektet, indsætter en textbox i den. Eventhandleren sørger for, at der kun kan indtastes tal.

Den kode du har fundet fungerer ved at den opfanger hvilke taster der bliver trykket på tastaturet. Så spørger den om, det er tasterne nr. 48-57, hvilket så svarer til tallene 1,2,3,...,9,0. Koden skal kobles på en textbox' KeyPress (eller KeyDown/Up?, check med parametrene).

Men da du anvender InputBox virker det ikke, for du kan ikke umiddelbart spørge hvilke taster der bliver trykket i InputBoxens felt.
Derimod kan du teste om strengen du får tilbage, kan betragtes som et tal. Det gør du ved at:
str = InputBox("Skriv et tal")
If IsNumeric(str) = False Then
  Msgbox "Nej, nej, nej, nej.... :("
End If

Hvis du så skal sikre dig, at der kun er indtastet et heltal, kan du efterfølgende sige:
heltal = Int(str)


Alternativt kan du forsøge med "heltal = Int(str)" med det samme, men det vil forårsage fejl. Den kan du forsøge at gribe:

str = InputBox("Skriv et tal")
On Error Resume Next
heltal = Int(str)
If Err.Number <> 0 Then
  Msgbox "NEJ!"
End If