VBA Code (2003 format) Help needed

HELP Needed

Situation:
Outlook 2003 Client runs code to file documents to correct digital locations, it looks to all outlook email subjects at ~ characters. Data in between to tilde characters is a reference number then it's being filed to the correct location on our server.

What needs to be added:

• reference numbers 180000672 needs to be filed to: I:\SAP\Year\Incoming\0180000672 (notice extra zero at end, and where "year" is the current year).

• reference numbers 80003154 needs to be filed to: I:\SAP\Year\Outgoing\0080003154 (notice two extra zero at end, and where "year" is the current year).

There is a simillar situation which might serve as an example:

• reference numbers: I-AAV120001 are filed to: I:\WHAM_Docs\year\Incoming\I-AAV120001 (where "year" is the current year again)

• reference numbers: O-AAV120001 are filed to: I:\WHAM_Docs\year\Outgoing\O-AAV120001 (where "year" is the current year again)

next I will post the code