哪位兄弟能帮我VB做的dll转成标准的dll。

[baoguo]

Private Sub Command1_Click()
Dim Code1 As Single

If Len(Text1.Text) < 4 Then
MsgBox "The Name must be more than 4 characters.", vbInformation + vbOKOnly, "Ooops"
Exit Sub
End If

For i = 1 To Len(Text1.Text) - 1
Code1 = Format(Asc(Right(Text1.Text, Len(Text1.Text) - i)) * 2 + (31 / i) + (i + 3 / 7), "#.#")
zip = zip & Code1
Next i
zip = Right(zip, 8)

For i = 1 To Len(zip) - 1
Code1 = Format(Asc(Right(zip, Len(zip) - i)) * 2 + (1 / i) + (i + 1 / 7), "#00")
final = final & Code1
Next i
final = Right(final, Len(final) - 4)
final = final & Asc(Text1)
Text2 = final
End Sub
这是一个VB程序，我要一个直接用的dll，像这样用。
Public Declare Function makedll Lib "maketest.dll" (x As String) As Integer。
帮帮忙啊。

[ghtsao]

不可能的事，VB开放的接口只有COM

[Lymtics]

关注

[baoguo]

我的意思只是想有一个标准的dll目的就是，想输入一个字符串，输出一些数字。可否帮我做一个？

[小笨和漂向北方]

呵呵，用VB应该做不了吧：）