Dim variable i for each next

Har en del variabler som skal erklæres, og spekulerede på om dette kunne gøres vha. et array og en "for each next"-loop, på en eller anden måde?

Har prøvet med nedenstående, men får følgende fejl "BC30616: Variablen 'VagtArray' skjuler en variabel i en omsluttende blok."

Dim count As Integer = 0
Dim VagtArray() As String = New String(){"bla1","bla2","bla3","bla4"}

    For Each VagtString in VagtArray
        Dim VagtArray(count) As New StringBuilder
        count=count+1
    Next