My first attempts at vb on my own