public IEnumerator<string> EnumerateFile(string fileName )
{
    string line;
    using( StreamReader sr = new StreamReader(fileName))
    {
        while( ( line = sr.ReadLine())!= null)
            yield line;
    }
    yield break;
}

 
Foreach  s as string In EnumerateFile( "maleintestname.txt")
 
Next

 
dim enumerator IEnumerator(of string) = EnumerateFile( "maleintestname.txt")
while enumerator.MoveNext()
  dim s as string = enumerator.Current
End While

 
For i as Integer = 1 To 100 Step 1
....
Next

 
dim i as Integer = 1
while( i < 100 ) do
....
 
    i = i + 1
end while