Error Calling Net Webservice from Excel VB App

[gprabaka]

Please find code below which is run by an Excel macro. I am trying to make this call a Webservice I wrote in another C# solution.

 

When the code trys to run this method, it gives the error "Execution permission cannot be acquired". Even the MsgBox At the Top does not appear. However, if I comment the line token = new usernameToken(..., The MsgBox Came to the End will appear.

 

Does anyone know what is the problem.

 

Thanks

Guha

PS. This application

Imports Office = Microsoft.Office.Core (Microsoft Office 11.0 Object Library)

Imports Excel = Microsoft.Office.Interop.Excel (Microsoft Excel 11.0 Object Library)

<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Public Sub PostToSwims(ByVal publisherName As String, _

ByVal vendorName As String, _

ByVal programName As String, _

ByVal effectiveDate As String, _

ByVal jobDesc As String, _

ByVal fileName As String)

MsgBox("At the top")

Dim strResult As String

Dim token As UsernameToken

Dim username As String = "BLAHBLAH"

Dim passwordBytes() As Byte = System.Text.Encoding.UTF8.GetBytes("BSBSBS")

Array.Reverse(passwordBytes)

Dim passwordEquivalent As String

 

passwordEquivalent = Convert.ToBase64String(passwordBytes)

token = Nothing

 

Try

token = New UsernameToken(username, passwordEquivalent, PasswordOption.SendPlainText)

Catch ex As Exception

MsgBox(ex.Message)

End Try

 

MsgBox("Came to the End")

 

End Sub