If mstrSessionID <> "" Then
strData = "sid=" & Encode(mstrSessionID) & "&" & strData
End If
・・・
End Sub
Private Function Encode(ByVal vstrSession_id As String) As String
Dim strRet As String
Dim strNeedEncode As String
Dim i As Long
strNeedEncode = "<>#%""{}|\^[]`;/?:@&=+$,"
For i = 1 To Len(vstrSession_id)
If InStr(1, strNeedEncode, Mid(vstrSession_id, i, 1)) <> 0 Or _
Asc(Mid(vstrSession_id, i, 1)) > 127 Then
strRet = strRet & "%" & Format(Hex$(Asc(Mid(vstrSession_id, i, 1))), "@@")
Else
strRet = strRet & Mid(vstrSession_id, i, 1)
End If
Next i