Combo question

[manavo11]

I have a combo box in which i have inputed a text file. When I hit a commmand button it generates a random number and it selects from the list of the combo box the value of that number. When I generate a new number it works OK but sometimes it show the text value as if it were

Combo1.Text = ""

even though it doesn't exist as an item in the list. And of course this messes up my program...Any ideas?

Thanks in advance...

[Shawn N]

'===============================================
'Rand - Return a random number in a given range.
'
'Parameters:
'  Low  - The lower bounds of the range.
'  High - The upper bounds of the range.
'
'Returns:
'  Returns a random number from Low..High.
'===============================================
 
Public Function Rand(ByVal Low As Long, _
                     ByVal High As Long) As Long
  Rand = Int((High - Low + 1) * Rnd) + Low
End Function

Try using this function when to get a random number. Coding should look something like:

Dim intRandomNumber As Integer
intRandomNumber = Rand(0, ListboxName.ListCount - 1)