Dim responseheaders As String
responseheaders = request.GetResponse.Headers.ToString
Dim responsecookiearr() As String
If responseheaders <> "" Then
If responseheaders.Contains(vbCrLf) Then
responsecookiearr = responseheaders.Split(vbCrLf)
For Each respc As String In responsecookiearr
' Console.WriteLine("Resp1 " & respc)
If respc.ToLower.Contains("set-cookie:") Then
responsecookie = respc.Replace(vbCrLf, "").Replace(vbLf, "").Replace("Set-Cookie: ", "")
End If
Next
End If
Else
End If