Dim contactName() As String
Dim contactPhone() As Int
Dim quantity As Int
Sub Button1_Click
For i = 1 to quantity
contactPhone(i) = Rnd(1, 9999999999) 'phone number is random number with max 10 digits
contactName(i) = ("#" & contactPhone) 'contact name is the same as phone number but has a # sign before it
Dim mu As miscUtil, c As Contact
mu.Initialize
Dim name As String, phoneNr As String, phoneType As Int, mail As String,
mailType As Int
name = contactName(i)
phoneNr = contactPhone(i)
phoneType = c.PHONE_HOME
mail = ""
mailType = c.EMAIL_HOME
mu.createContactEntry(name, phoneNr, phoneType, mail, mailType)
Next
End Sub