Random Strings in Visual BASIC

Taking  break from C++ for just a minute and writing a random string generator in Visual BASIC. You'll notice the style of my code in C++ is fairly linear. The reason for this is I first learned to code in BASIC.

Module Module1

    Sub Main()
        'string variables for each character of the random string

        ' string array from which to derive our random strings
        Dim StringArray() As String = {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"}
        ' random number will be the number of the array index
        Dim RandomInteger As Integer
        'string from array each indexf the array as called
        Dim String1 As String
        Randomize()
        RandomInteger = Int(Rnd() * 51)
        String1 = StringArray(RandomInteger)

        Dim String2 As String
        Randomize()
        RandomInteger = Int(Rnd() * 51)
        String2 = StringArray(RandomInteger)

        Dim String3 As String
        Randomize()
        RandomInteger = Int(Rnd() * 51)
        String3 = StringArray(RandomInteger)

        Dim String4 As String
        Randomize()
        RandomInteger = Int(Rnd() * 51)
        String4 = StringArray(RandomInteger)

        Dim String5 As String
        Randomize()
        RandomInteger = Int(Rnd() * 51)
        String5 = StringArray(RandomInteger)

        Dim String6 As String
        Randomize()
        RandomInteger = Int(Rnd() * 51)
        String6 = StringArray(RandomInteger)

        Dim String7 As String
        Randomize()
        RandomInteger = Int(Rnd() * 51)
        String7 = StringArray(RandomInteger)

        Dim String8 As String
        Randomize()
        RandomInteger = Int(Rnd() * 51)
        String8 = StringArray(RandomInteger)

        Dim String9 As String
        Randomize()
        RandomInteger = Int(Rnd() * 51)
        String9 = StringArray(RandomInteger)

        Dim String10 As String
        Randomize()
        RandomInteger = Int(Rnd() * 51)
        String10 = StringArray(RandomInteger)

        Dim String11 As String
        Randomize()
        RandomInteger = Int(Rnd() * 51)
        String11 = StringArray(RandomInteger)

        Dim String12 As String
        Randomize()
        RandomInteger = Int(Rnd() * 51)
        String12 = StringArray(RandomInteger)

        Dim String13 As String
        Randomize()
        RandomInteger = Int(Rnd() * 51)
        String13 = StringArray(RandomInteger)

        Dim String14 As String
        Randomize()
        RandomInteger = Int(Rnd() * 51)
        String14 = StringArray(RandomInteger)

        Dim String15 As String
        Randomize()
        RandomInteger = Int(Rnd() * 51)
        String15 = StringArray(RandomInteger)

        Dim String16 As String
        Randomize()
        RandomInteger = Int(Rnd() * 51)
        String16 = StringArray(RandomInteger)

        Dim String17 As String
        Randomize()
        RandomInteger = Int(Rnd() * 51)
        String17 = StringArray(RandomInteger)

        Dim Str1 As String = String1 & String2 & String3 & String4 & String5 & String6 & String7 & String8 & String9 & String10 & String11 & String12 & String13 & String14 & String15 & String16 & String17

        Console.WriteLine(Str1)

    End Sub

End Module