I changed up the code some and now I am getting a different error.

Local vresl
vresl = 0
MessageBox(Str(mfsheets1))
vresl = ((This.Value/mfsheets1)*100)
ThisForm.Label1.Caption = Str(vresl) + "% Complete"

I now get Variable mfsheets1 not Found!