Bitteerscheen.
Nicht vergessen, wenn du das ein weiteres mal machen willst, solltest du die strings(1-bis-5) auf "leer" setzen

For Par = 1 To 5
Strings(Par) = ""
Next