Code:
Function ShowList_RndNum(LstBox as ListBox) as string
   dim NumItems as integer,ThisItem as integer
   dim ThatNum as integer,Ret_Val as string


      NumItems=LstBox.ListCount-1
      ThisItem = int(Rnd()*NumItems)
      ThatNum = int(Rnd()*9999)

      Ret_Val = right$("0000"+ltrim$(str$(ThatNum)),4)
      Ret_Val = LstBox.List(ThisItem) & " " & Ret_Val

Xit_ShowList_RndNum:
      ShowList_RndNum=Ret_Val
End Function
Is this what you wanted?????

ShowList_RndNum will return a string comprised of the randomly
selected list item and a randomly selected number between 0000-
9999.