Private Sub TreeView_ICC_OLEDragDrop(Data As Object, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
Dim extension As String
For Each varFileName In Data.Files
extension = path.GetExtension(varFileName) ' En esta línea lanza el error
...
Next
...
End Sub