URGENT HELP NEEDED in Calling DLL

[bengalliboy]

Please some one help me: I made a fortran dll and am trying to call it from a VB (6) program and am getting the following Runtime error (455): Can't Find DLL entry point DLL_OUT in C;\test\file.dll

What am I missing>?
Thanks

 

[bengalliboy]

Here is the code:
Private Sub Command1_Click()

num1 = InputBox("Please enter number 1:")
num2 = InputBox("Please enter number 2:")

'Static STR_IN As String * 10, STR_OUT As String * 20

'Rem Pass lengths of string arguments

Call total1(num1, num2, total)

TextBox1.Text = total

End Sub
Declare Sub total1 Lib "C:\TryVB\myDLL\Debug\myDLL.dll" (ByRef num1 As Integer, ByRef num2 As Integer, ByRef total As Integer)
fortran:
subroutine total1(num1,num2,total)
integer num1,num2,total
total = num1 + num2
write(*,*)total
end