make a pauli kraepelin test with Ms. Word

haii.. 
i want to share about something "joss gandos".. are you embitered??? Yes i am (lhoh) :D
yesterday, i came in psikotest at wisma mm ugm. The company is PT. TAM (member of Astra Group). First step was about same psikotest which i had joined in MT Danone and i didn't feel bad in this step until (hmm) i think step 3. 

wualaaa....

in the step 4 (i think) i found and got one big back-to-back paper be contained by thousands of numbers.. i was shock and headache :( this was Pauli kraepelin test.. it was my first pauli kraepelin test..

and.. after the test, i went home and tried how to do that test well.. the answer was "always do the practices"

easy to make the practice.. with your Ms. Word.. 

1.  open your Ms. Word
2. press alt+F11
3. Microsoft Visual Basic showed. Look menu, click Insert -> Module..
4. copy paste the code at Visual Basic

Sub TesKoran()
Randomize Timer
theEnd = InputBox("Banyak angka yang diinginkan: ", "Banyak Angka")
If Not IsNumeric(theEnd) Then Exit Sub
If Int(theEnd) = 0 Then Exit Sub
For i = 1 To theEnd
theText = theText & vbTab & Int(Rnd(i) * 10)
Next
Selection.TypeText Text:=theText
End Sub

5. back into your Ms. Word but don't close Microsoft Visual Basic for Applications), press Alt+F8. and then fill free numbers, for example : 100

 enjoy your practice, dear.. GBU