Hallo Tung,

nein, eine Konstante verträgt keine Verarbeitung bei der Initialisierung.

Als Workaround kann man mit einem Muster arbeiten, wovon eine bestimmte Stelle mit Replace nachbearbeitet wird:

Sub Array_herstellen()
Dim Station(9) As String
Dim i As Long
Const cPfad = "C:\ * * * *\Station @@@\"

    For i = 0 To 9
        Station(i) = Replace(cPfad, "@@@", CStr(i))
    Next
End Sub

VG
Yal