<code>Private Sub Text1_KeyPress(KeyAscii As Integer)
  Select Case KeyAscii
    <font color=green>' unzulässige Zeichen: 45 (-) und 46 (.)
    Case 45, 46
      KeyAscii = 0
  End Select
End Sub</code>

<code>Private Sub Form_QueryUnload(Cancel As Integer, _
  UnloadMode As Integer)
 
  If UnloadMode = vbFormControlMenu Then
    <font color=green>' Schließen-Befehl (Symbol) wurde gewählt</font>
    If MsgBox("Wirklich beenden?", vbYesNo + vbQuestion) = vbNo Then
      Cancel = True
    End If
  End If
End Sub</code>