Seems, it's VB6 code instead of VB.NET...
We can't help you, because there's a lot of variables which were defined out of scope of
Proc_Data
procedure, for example:
var_90
,
MemVar_27041A0
,
var_8C
,
var_88
.
BTW: This piece of code is ugly... I'm serious. It's not a joke!
Note, that below line of code makes unnecessary calls of several VB functions:
var_90 = CStr(Ucase(Left(Format(DateAdd("m", CSng((Format(Date, "MM") Mod 4)), Date), "MMMM"), 3)))
It can be simplify to this form:
var_90 = UCase(Format(DateAdd("m", CSng((Format(Date, "MM") Mod 4)), Date), "MMM"))
So,
CStr()
and
Left()
function calls are redundant!