version 2003 mit 2007 kompatibel?

Private Sub TextBox25_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'brennwert kj pro 100g
If IsNumeric(TextBox25) Then: TextBox25.BackColor = &H80000005: Label175.Caption = Format( _
TextBox25 / 0.239, "0")
If IsNumeric(TextBox25) And IsNumeric(TextBox34) Then: Label176.Caption = Format(TextBox25 *  _
TextBox34 / 100, "0")    'g kcal
If IsNumeric(TextBox25) And IsNumeric(TextBox34) Then: Label177.Caption = Format(Label175 *  _
TextBox34 / 100, "0")     'g kj
If IsNumeric(Label176) Then: Label186.Caption = Format(Label176 * 100 / Label47, "0") '% kcal
If Label175.Caption = "" Then
Else
If Label175.Caption