Private Sub TextBox1_Exit _
   (ByVal Cancel As MSForms.ReturnBoolean)
   
   If TextBox1.Value <> 100 Then
      MsgBox "Geben Sie die Zahl 100 ein."
      TextBox1.SetFocus
      Cancel = True
   End If
End Sub