Thanks Whirlin, I think I figured it out for anyone interested:
Code:
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Public Function makeID() As Object
Dim r, a, q, c, b As Object
r = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
a = Len(r)
q = 8
Randomize()
c = ""
For intstep = 1 To q
b = Int((a * Rnd()) + 1)
c = c & Mid(r, b, 1)
Next
makeID = c
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim a As String
While ListBox1.Items.Count < 1001
a = makeID()
ListBox1.Items.Add(a)
End While
End Sub
End Class