If anyone is trying to do the same I found a way to make this work (with notepad and calc and such anyway)

had to use this:
sApp = Left$(puk, intc)

instead of

sApp = puk

It took a while but I've only been learning VB 2 months or so now.