Private function generateApplicationcode (Byval Str As String) 'Automatically generates case code
DIM I as integer
DIM Strappcode As String
Strappcode = STR 1
While Strappcode.Length <> str.length
Strappcode = "0" strappcode
End while
Return Strappcode
END FUNCTION
