Private Sub txtProdukt_GotFocus(Index As Integer)
  FokusInhalt = txtProdukt(Index).Text
End Sub
 
Private Sub txtProdukt_Validate(Index As Integer, keepfocus As Boolean)
'wenns leer ist dann auf 0 setzen
  If txtProdukt(Index).Text = "" Then txtProdukt(Index).Text = 0
'wenn der Inhalt gleich ist wie beim Fokuserhalt dann beende den vorgang
  If FokusInhalt = txtProdukt(Index).Text Then Exit Sub 
'wenn der Inhalt sich geändert hat MsgBox
  If txtProdukt(index).Text <> Fokusinhalt then MsgBox "Ahoi"
End Sub