Dim wc As New Net.WebClient
        Dim url As String = "http:/[webserver]/anfdb.csv"
 
        Try
            wc.Credentials = New Net.NetworkCredential("wwwrun", "")
            Dim sw As IO.StreamWriter = New IO.StreamWriter(wc.OpenWrite(url, _
              "PUT"))
            sw.WriteLine("Das ist ein TEST")
            sw.Close()
 
            MsgBox("Schreiben angeblich erfolgreich")
 
        Catch ex As Exception
            MsgBox(ex.Message)
 
        End Try