Any VB Coders Know What's Wrong With This?

[FallsUpStairs]

Hey all, I have been programming this and I can't get it to work correctly.
I added the "CATCH" messageboxes to see the progress before I get an error, and every time it stops at "CATCH1". Since it gets there that would mean that it would have passed the "UOG_Client_Launch(0)" but the client doesn't start... Do I need to use like "LaunchPatch.Launch" or something for the "Command1_Click event"? If anyone has any info please try and help, thanks! (This is done is VB6 BTW.)
[code:1]'DLL Declarations
Private Declare Function UOG_Client_Launch Lib "uog.dll" (Client As Long) As Long
Private Declare Function UOG_Client_Terminate Lib "uog.dll" () As Long
Private Declare Function UOG_Client_Resume Lib "uog.dll" () As Long
Private Declare Function UOG_Client_Patch Lib "uog.dll" () As Long

Private Sub LaunchPatch()
'Define Local Variables
Dim lProcessID As Long
Dim lPatchesApplied As Long
'Start Client as Suspended Process
lProcessID = UOG_Client_Launch(0)
If lProcessID = 0 Then
UOG_Client_Terminate
MsgBox "CATCH1"
Exit Sub
End If
'Apply Patch To Client
lPatchesApplied = UOG_Client_Patch
If lPatchesApplied = 0 Then
UOG_Client_Terminate
MsgBox "CATCH2"
Exit Sub
End If
'Resume Client
UOG_Client_Resume
End Sub

Private Sub Command1_Click()
'Start Launch/Patch Function
LaunchPatch
End Sub[/code:1]