Visual Basic Code help

[Lib]

Can anyone help me write this so it will work
automatically?
..

 

[Lib]

Sorry, posted in wrong place.