non so se ho capito bene... es.
codice:
Dim stringhe() As String
        Dim i As Integer = 0
        While i = 10
            If i <> 10 Then
                stringhe(i) = "tuovalore"
            End If
            i += 1
        End While