Dim web As New WebClient Dim Text As String = "Test" Dim Newcode As String = web.UploadString("https://pastebin.com/edit/bxXC7Qiu", Text)