Use a BinaryStream to read your file in chunks. Feed each chunk to an MD5Digest and get the result at the end.
dim mdfive as new MD5Digest
dim bs as BinaryStream = BinaryStream.Open( f )
while not bs.EOF
dim chunk as string = bs.Read( 1000000 )
mdfive.Process chunk
wend
dim hash as string = EncodeHex( mdfive.Value )