Try using the Eval() function, example....
Private Sub SLICC_MALIGNANCY_AfterUpdate()
Dim TotalScore as Integer
For n = 1 to 200
Are you using Excel,
Where are you getting Me!Item1, is it a cell reference ; in which case how about the SUM function.
Post some more information and I'm sure there is a way.