VB.NETで文字列からMD5ハッシュ値取得

dim message : message = "hogehoge"

Dim data As Byte() = System.Text.Encoding.UTF8.GetBytes(message)
Dim md5 As New System.Security.Cryptography.MD5CryptoServiceProvider()
Dim bs As Byte() = md5.ComputeHash(data)
md5.Clear()
Dim md5hash As New System.Text.StringBuilder()
Dim b As Byte
For Each b In bs
    md5hash.Append(b.ToString("x2"))
Next b

'結果を表示
Console.WriteLine(md5hash)