1. Buka MS. WORD
2. Klik ALT+F10 atau di beberapa laptop bisa ALT+FN+F10
3. Klik INSERT
4. Klik MODULE, akan muncul seperti ini, isikan kode seperti dibawahh ini
5. Copas kode dibawah ini aja:
Sub PsikoNumGenerator()
Randomize Timer
theEnd = InputBox("Jumlah angka yang
akan dibuat", "Jumlah 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
7. Klik ALT+F8 atau di beberapa laptop bisa
ALT+FN+F8
8. Klik RUN
9. Masukkan angka yang dibutuhkan
10. Terakhir berikut hasilnya
