VBA funzione MID con ciclo do while

[SirJo]

i = 1
riga = 1


Do While Cells(i, 1) <> ""
If Mid(Cells(i, 1), 1, 2) = "07" Then

ora dovrebbe startare dal carattere 8 , 2 = "09"
e riportarlo su un altro foglio excel

Dim Anno As Integer
Anno = Val(Mid(Cells(i, 1), 8, 2))

Anno è una variabile numerica, se invece ti serve che sia una stringa:

Dim Anno As String
Anno = Mid(Cells(i, 1), 8, 2)

Sergio