Excel lo interpreta come data. Quindi è in Excel che devi agire, forzando la cella in formato testo.
Se non ci riesci puoi sempre provare a metterci l'apice singolo davanti al codice. Come nell'esempio:
i = 1
RS.MoveFirst
Do Until RS.EOF
foglioExcel.Cells(i, 1) = "'" & RS("Codice").Value
foglioExcel.Cells(i, 2) = RS("Descrizione").Value
RS.MoveNext
i = i + 1
Loop
