<code><font color=#000099>Private</font> <font color=#000099>Sub</font> _
  Text1_LostFocus()
  <font color=green>' Eingabe prüfen, ob durch 0.25 teilbar</font>
  <font color=#000099>Dim</font> dblZahl <font color=#000099>As</font> <font _
    color=#000099>Long</font>
 
  dblZahl = Val(Replace(Text1.Text, ",", ".")) * 100
 
  <font color=#000099>If</font> dblZahl Mod 25 <> 0 <font _
    color=#000099>Then</font>
    <font color=green>' Bei der Division bleibt ein Rest - also nicht</font>
    <font color=green>' durch 0.25 teilbar</font>
    MsgBox "Falsche Eingabe - Die Zahl muss ohne Rest durch 0.25 teilbar sein!"
    Text1.SetFocus
  <font color=#000099>End</font> <font color=#000099>If</font>
<font color=#000099>End</font> <font color=#000099>Sub</font></code>