How can i do it this , in VB Code?

I know that it is too difficult but how to do it?