MsgBox Evaluate([D5].Formula)
Dim S As String
S = "=IF((97-MOD((((89*7)+(15*99999)+(3*B1))),97))+30<97,(97-MOD((((89*7)+(15*99999)+(3*B1))),97))+30,IF(AND(97-MOD((((89*7)+(15*99999)+(3*B1))),97))+30>97,((97-MOD((((89*7)+(15*99999)+(3*B1))),97))+30-97),97))"
MsgBox Evaluate(S)