I am trying to use the UrlEscape API but I am not sure what mistake I have made in the declaration. I am also not familiar with using pointers in Visual Basic 6.

Code:
Private Declare Function UrlEscape Lib "Shlwapi" Alias "UrlEscapeA" (ByVal pszURL As Long, ByVal pszEscaped As Long, ByRef pcchEscaped As Long, ByVal dwFlags As Long)

Private Const URL_DONT_ESCAPE_EXTRA_INFO = &H2000000
Private Const URL_BROWSER_MODE = &H2000000
Private Const URL_ESCAPE_SPACES_ONLY = &H4000000
Private Const URL_ESCAPE_PERCENT = &H1000
Private Const URL_ESCAPE_SEGMENT_ONLY = &H2000
Private Const URL_ESCAPE_AS_UTF8 = &H40000
Private Const URL_ESCAPE_ASCII_URI_COMPONENT = &H80000

Private Sub Form_Load()
Dim strReturn As String
Dim szSize As Long
Dim strInput As String
strInput = "https://www.google.com/#q=stack+overflow"
szSize = Len(strInput)
Call UrlEscape(StrPtr(strInput), StrPtr(strReturn), szSize, URL_BROWSER_MODE)
MsgBox strReturn
End Sub