du skal self ha sat dinne points som int var =)
dim points as integer = 0
Private Sub udvikl()
points = points+10
End Sub
Private Sub aget()
points = points+1
End Sub
Private Sub gi_mad()
points = points-2
End Sub
Private Sub ShowPoints()
msgbox("du har " & points & " points")
End Sub