pass the control object:
VB Code:
  1. Private Function MyFunction(ByRef oListBox As ListBox) As Boolean
  2.     Debug.Print oListBox.Name 'etc.
  3. End Function
  4.  
  5. Private Sub Command1_Click()
  6.     MyFunction List1
  7. End Sub