Visual Basic mit Power Point Eingabeprüfung

Hallo,

ich automatisiere eine PPT mit Visual Basic. Soweit so gut, jetzt würde ich gerne
eine Eingabeprüfung bei den Textfeldern durchführen.
Die Daten werden auf der ersten Folie eingegeben und dann in den weiteren Folien
verarbeitet und in die "eigentliche" Präsentation eingefügt.
Die erste Folie dient also nur zur Datenerfassung.
Ich habe folgenden Code verwendet:

Private Sub txtBruttokosten_KeyPress(ByVal keyascii As MSForms.ReturnInteger)
Select Case keyascii
Case 48 To 57
Case 44
Case Else
MsgBox "Bitte nur Zahlen eingeben"
keyascii = 0
Exit Sub
End Select
End Sub

Anscheinend findet aber das Ereigniss KeyPress nicht statt, da ich nach wie vor
auch Buchstaben eingeben kann ohne das irgend entwas passiert.
Hab auch schon nachgelesen aber komme auf keinen grünen Zweig...

Auserdem wäre ich dankbar wenn mir jemand ein Buch zu VB mit Power Point empfehlen kann.
Hab weder über Amazon etc. etwas gefunden.

Danke schon im voraus !

.
.
.
dim istzahl as string
istzahl=inputbox1.text
If IsNumeric(istzahl) = false then
msgbox (" Bitte nur Zahlen Eingeben")  
end if
.
.
.