function SeedtoKey(string seed) returns string Key

Dim X As KeyDLL
Private Sub Command1_Click()
Set X = New KeyDLL
Text2.Text = X.SeedtoKey(Text1.Text)
End Sub