cambiar el nombre de todas las capas de microstation poniendo un letra k en el inicio del nombre de la capa en formato vba

Private Sub Command1_Click()

Dim I As Long

For I = 1 To ThisDrawing.LayerTable.Count

ThisDrawing.LayerTable.Item(I).Name = "k" & ThisDrawing.LayerTable.Item(I).Name

Next I

End Sub