Algo así

Imports System.Web.Services
Imports System.Threading
Imports CLC.CUENTASCORRIENTES.COMUN
Imports System.Configuration.ConfigurationManager
Public Class BLMain
    Inherits ZCL.ZCLClass

    Public Sub New(User As Usuario)
        MyBase.New(User)
    End Sub


    Public Function Registra_Respuesta(Codigo_transaccion As String, Nro_Identificador As String, _
                                       Nro_Siniestro As String, Codigo_Respuesta As String, _
                                       Mensaje_Respuesta As String) As Main.WSRespuesta

        Dim Respuesta As Main.WSRespuesta = Nothing
        Dim Glosa As String
        Dim Conexion As New ZCL.ZCLConnection(_ConnectionStringGSGARW)
        Conexion.Open()
        Conexion.BeginTransaction()

        Glosa = Format(Val(Codigo_Respuesta), "00") & " - " & Mensaje_Respuesta.ToString

        Conexion.CommandText = " Update valpo.Transacciones_Workflow " & _
              "Set Fec_Respuesta = GetDate() , " & "Cod_Estado = 3 , " & _
              " Glosa = '" & Glosa.ToString & _
              "' Where Tip_Transaccion = '" & Codigo_transaccion.ToUpper & "' And Nro_Llamada = " & Nro_Identificador.ToString
        Try
            If Conexion.ExecuteNonQuery Then
                Dim Filas_Actualizadas As Integer = Conexion.numberRowsAffected

                Conexion.Commit()
                If Filas_Actualizadas = 0 Then
                    Respuesta.Men_Retorno = "No se pudo Registrar Id. de Llamada."
                Else
                    Respuesta.Men_Retorno = _ConnectionStringGSGARW

                    ' Aquí agregar llamado SQL para deolver más datos si se requiere
                    Conexion.CommandText = " SELECT * FROM valpo.Transacciones_Workflow Where Tip_Transaccion = '" & Codigo_transaccion.ToUpper & "' And Nro_Llamada = " & Nro_Identificador.ToString

                    ' ALGO ASI?
                End If

            Else
                Conexion.Rollback()
                Respuesta.Men_Retorno = "No se pudo Registrar Id. de Llamada."
            End If
        Catch ex As Exception
            Respuesta.Men_Retorno = ex.Message
        End Try

        Conexion.Close()

        Return Respuesta

    End Function

End Class