Vowel Counter Broken in VB - vb.net

Question

I am struggling to get this vowel counter to work. I should be able to input the file ( am I doing the inputting right) should read the text document(which it doesn't) and then count the vowels. Also, if I could I could get it to count the number of words but this isn't necessary.
The error code say that the variable myline is already declared in the current block. ?? Thanks in advance.
Here is the code:
Imports System.IO
Module Module1
Sub Main()
Dim vowel As Integer = 0
Dim Text, myline As String
Dim objStreamReader As StreamReader
objStreamReader = New StreamReader("H:\vowelcounter.txt")
Dim myline = objStreamReader
Text = objStreamReader.ReadLine()
Do While Not Text Is Nothing
Console.WriteLine(text)
For x = 0 To Text.Length
If x = "a" Then
vowel = vowel + 1
End If
If x = "e" Then
vowel = vowel + 1
End If
If x = "i" Then
vowel = vowel + 1
End If
If x = "o" Then
vowel = vowel + 1
End If
If x = "u" Then
vowel = vowel + 1
End If
If x = "A" Then
vowel = vowel + 1
End If
If x = "E" Then
vowel = vowel + 1
End If
If x = "I" Then
vowel = vowel + 1
End If
If x = "O" Then
vowel = vowel + 1
End If
If x = "U" Then
vowel = vowel + 1
End If
Next
Loop
Console.ReadLine()
End Sub
End Module

Answer 1

The error code say that the variable myline is already declared in the
current block.
Yes, it is:
Dim Text, myline As String ' <----- HERE
Dim objStreamReader As StreamReader
objStreamReader = New StreamReader("H:\vowelcounter.txt")
Dim myline = objStreamReader ' <----- and HERE
So rename the first string variable or the StreamReader (why do you need two for one at all?).
You could achieve the vowel-counter much more easier:
Dim text As String = System.IO.File.ReadAllText("H:\vowelcounter.txt")
Dim vowels = From c In text Where "aeiouAEIOU".Contains(c)
Dim vowelCount As Int32 = vowels.Count()
You can get the word-count in this way:
Dim words = text.Split()
Dim wordCount As Int32 = words.Length
This assumes only spaces, tabs or new-line characters are delimiter. If you need other characters as well:
Dim wordDelimiter As Char() = {" "C, ControlChars.Tab, ","C, "."C, "!"C, "?"C, _
";"C, ":"C, "/"C, "\"C, "["C, "]"C, _
"("C, ")"C, "<"C, ">"C, "#"C, """"C, _
"'"C}
Dim words = text.Split(wordDelimiter, StringSplitOptions.None)