Option Explicit

Private Sub Command1_Click()
On Error GoTo HELL
CD.CancelError = True
CD.DialogTitle = "Select File To Change MD5"
CD.Filter = "All Files (*.*)|*.*"
CD.ShowOpen
If Dir(CD.FileName) <> "" Then Text1.Text = CD.FileName

HELL:
End Sub

Private Sub Command2_Click()
Dim FF As Integer

On Error GoTo HANDLE

If Dir(Text1.Text) <> "" Then
    FF = FreeFile

    Open Text1.Text For Binary Access Write As #FF
        Put #FF, LOF(FF) + 1, Chr(0)
    Close #FF
    MsgBox "MD5 of File Changed, Enjoy!", vbInformation, "MD5 Changer v1.0"
Else
    MsgBox "Select Proper File To Change MD5 Hash!", vbInformation, "MD5 Changer v1.0"
End If

HANDLE:
    If Err.Number > 0 Then
        MsgBox "Error (" & Err.Number & ") : " & Err.Description, vbCritical, "MD5 Changer v1.0"
        Err.Clear
    End If
End Sub