Wooh! Thanks a lot, lads. I'd been doing a bit more work on it and I was going to do it along these lines:

Private Sub Command1_Click()
Dim dividers(0 To 7) As String
Dim i As Integer
'put all the factors of 360 as strings
For i = 0 To 7
Next
dividers(0) = "20"
dividers(1) = "24"
dividers(2) = "30"
dividers(3) = "60"
dividers(4) = "80"
dividers(5) = "90"
dividers(6) = "120"
dividers(7) = "180"
Randomize
i = Int(Rnd * 8)
Label1.Caption = dividers(i)
End Sub

But your ways are better, neater and more to the point.

P.S: What's the story with that damn Randomize command? Does 'Rnd * 8' mean random from 0 to 8, 1 to 8....?? It seems different every time I try it.