Se usi l'oggetto File1, basta assegnare ad una variabile il suo contenuto: (File1.ListCount)
es:

Private Sub Dir1_Change()
File1 = Dir1
Label1 = File1.ListCount
End Sub

Private Sub Drive1_Change()
Dir1 = Drive1
End Sub