Run Time Error 453 Can't Find DLL entry point Out in inpout32

Everybody please help me with these Parrallel port interfacing sample. i put inpout32.dll in the system 32, but the code i wanted to run will not work.
Please, Help me with this thing.
Here's my code.



Sub Command1_Click(Index As Integer)
'code to turn on LED in pin 2
Out 888, 1
Labell.Caption = "On"
End Sub

Sub Command2_Click()
'code to off all LED
Out 888, 0
Labell.Caption = "Off"
End Sub
Sub Text1_Change()
'code to off when you start the program
Out 888, 0
Labell.Caption = "Off"
End Sub