Dim md As MD5
Private Sub Command1_Click()
Call mainloop
End Sub
Private Sub Form_Load()
Set md = New MD5
Text1.Text = md.MD5(123)
Dim i As Integer
i = 0
Dim x As Integer
x = 0
Dim temp As String
End Sub
Public Sub mainloop()
Do While i = 0
temp = md.MD5(CStr(x))
If temp = Text1.Text Then
i = 1
Text2.Text = x
MsgBox (x)
Exit Sub
End If
Text2.Text = x
x = x + 1
DoEvents
Loop
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Text1.Text = md.MD5(123)