Cambiar la url de un servicio web WCF desde código

Solución:

Public Function ConectaServicio(ByVal url As String) As servicio.clienteServicio
        Dim servicio As New servicio.clienteServicio()
        servicio.Endpoint.Address = New ServiceModel.EndpointAddress(url)
        Return servicio
    End Function