MD5 hash til min kode

Hej eksperter!
Jeg har denne login form....

Private Sub Command1_Click()
  Dim FilIndhold As String
  Dim FF As Long
  Dim strPath As String
  FF = FreeFile
  If File1.ListIndex >= 0 Then 'skal kun virke når du har MARKERET en fil
    strPath = File1.Path
    If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
    Open strPath & File1.FileName For Input As #FF
      Line Input #FF, FilIndhold
    Close #FF
    If FilIndhold = "fjdskaj435684629/*4564*464g+254354+34*54364" And Text1.Text = "kode" Then
    Form2.Show
    Me.Hide
    Else
    Form2.Hide
    Me.Show
    MsgBox "Kunne ikke logge på kodeord eller fil er forkert !" & FilIndhold, vbCritical, "Fejl 1.01"
    End If
  Else
    MsgBox "Du skal først markere en fil !"
  End If
End Sub

men jeg har fundet ud af at man faktisk kan bryde den via en hexeditor...så derfor vil jeg gerne lave en MD5 hash af koden ???
hvordan gør jeg det ???
er der en der kan give mig en lille guide ?

Visualdeveloper !