Søg i streng

Kan du smide lidt mere af koden, måske der hvor strengen bliver lavet?

Selve ugenumrene bliver beregnet i en funktion udfra en input dato i formatet dd-mm-yyy.
Function BeregnUgeNr(KompletDato)
    BeregnUgeNr = DatePart("ww", KompletDato, vbMonday, vbFirstFourDays)
    If BeregnUgeNr > 52 Then
        If DatePart("ww", KompletDato + 7 , vbMonday, vbFirstFourDays) = 2 Then BeregnUgeNr = 1
    End If
End Function

Selve strengen opbygges ved et "for i = 1 to xx next" loop. Her loopes igennem en kalender med syv uger. Ved den sidste dag (lørdag) i hver uge beregnes ugenummeret (se ovenfor).
Strengen opbygges ved strUGENR = strUGENR & "," & NYTUGENR

Tror ikke jeg er helt med. Hvordan lykkedes det for dig at få strengen bygget forkert op til at starte med?

Hmm, tror ikke det fører nogen steder hen. Spørgsmålet lukkes. Sorry...