VB调用dll

Private Declare Sub CallDishDetail Lib "D:\VBTest\CallDetail.dll" (ByVal orderid As Long)

Private Sub Command1_Click()
Dim orderid As Long
If Not IsNumeric(Text1.Text) Then
Label1.Caption = "不是有效的数字"
Else
orderid = Int(Text1.Text)
Label1.Caption = ""
Call CallDishDetail(orderid)
End If
End Sub