this is basically what i am doing but it doesn't work (it wont add the strings when the form is loaded again)

Sub GENITEMZ()

If udtA.DONEGENERATE = 0 Then
Employeez.Clear
Empler.Clear
HMNY = Int((8 * Rnd) + 1)
Dim Counter As Integer
Do Until Counter = HMNY
Randomize
RAN = Int((8) * Rnd)
If RAN = 0 Then Employeez.AddItem ("Manual Labourer")
If RAN = 1 Then Employeez.AddItem ("Manual Labourer")
If RAN = 2 Then Employeez.AddItem ("Manual Labourer")
If RAN = 3 Then Employeez.AddItem ("Manual Labourer")
If RAN = 4 Then Employeez.AddItem ("Bodyguard")
If RAN = 5 Then Employeez.AddItem ("Bodyguard")
If RAN = 6 Then Employeez.AddItem ("Scientist")
If RAN = 7 Then Employeez.AddItem ("Navigator")
Counter = Counter + 1


Loop
udtA.DONEGENERATE = 1
End If

Employeez.ListIndex = 0
udtEmployList.Emp1 = Employeez.Text
If Employeez.ListIndex > 0 Then
Employeez.ListIndex = 1
udtEmployList.Emp2 = Employeez.Text
End If
If Employeez.ListIndex > 1 Then
Employeez.ListIndex = 2
udtEmployList.Emp3 = Employeez.Text
End If
If Employeez.ListIndex > 3 Then
Employeez.ListIndex = 3
udtEmployList.Emp4 = Employeez.Text
If Employeez.ListIndex > 4 Then
Employeez.ListIndex = 4
udtEmployList.Emp5 = Employeez.Text
End If
If Employeez.ListIndex > 5 Then
Employeez.ListIndex = 5
udtEmployList.Emp6 = Employeez.Text
End If
If Employeez.ListIndex > 0 Then
Employeez.ListIndex = 6
udtEmployList.Emp7 = Employeez.Text
End If
End If

If udtA.DONEGENERATE = 1 Then
Employeez.AddItem (udtEmployList.Emp1)
Employeez.AddItem (udtEmployList.Emp2)
Employeez.AddItem (udtEmployList.Emp3)
Employeez.AddItem (udtEmployList.Emp4)
Employeez.AddItem (udtEmployList.Emp5)
Employeez.AddItem (udtEmployList.Emp6)
Employeez.AddItem (udtEmployList.Emp7)
End If



End Sub