Create dynamic Variables from an Array

Ok, so i want to create dynamic Variables as Integer using the names from an Array. This is what I've tried so far:

Dim subjects as Array {"Math", "English", "German"} 'Three example names
Dim subjectsInt as New Dictionary(Of Integer) 'Throws error: Not enough arguments
Dim i as Integer

For i = 0 to 2
    subjectsInt(subjects(i)) = 0 ' Trying to create a variable with the name of entry number i of the Array & and the starting value 0

    Do 
        Console.WriteLine(subjects(1) & ": ")
        Dim input As String = Console.ReadLine()
        subjectsInt = CInt(input)
    Loop While subjectsInt = 0 Or subjectsInt > 100
Next i

in the end I want a result like this:

Math = 10       'random values between 1 and 100
English = 40
German = 90

I hope my question is clear enough, thanks in advance :)