Come non detto l'ho sistemato ho messo:

Dim tmp() As String
Dim sys As String