Private Sub Command1_Click()
If List1.ListCount > 0 Then MyApp.DoSomething
End Sub
 
'Oder
Private Sub Command1_Click()
MyApp.DoSomething
End Sub
 
Public Function DoSomething
If List1.ListCount > 0 Then ...
End Function