Dim request As HttpWebRequest = DirectCast(WebRequest.Create( _
          "http://tray.technobase.fm/radio.xml"), HttpWebRequest) 
        Dim response As HttpWebResponse = DirectCast(request.GetResponse(), _
        HttpWebResponse)
        Dim reader As StreamReader = New StreamReader( _
        response.GetResponseStream())
        Dim dj As String = reader.ReadToEnd()
        Dim sw As New StreamWriter(My.Application.Info.DirectoryPath & _
          "/data/shortlog.xml")
        sw.Write(dj)
        If Not response Is Nothing Then response.Close()
        Dim djname As String = ReadLine(My.Application.Info.DirectoryPath & _
          "/data/shortlog.xml", 5)
        MsgBox(djname)

    Public Function ReadLine(ByVal filename As String, _
ByVal line As Integer) As String
        Try
            Dim lines As String() = My.Computer.FileSystem.ReadAllText( _
              filename, System.Text.Encoding.Default).Split(vbCrLf)
 
            If line > 0 Then
                ' n-te Zeile vom Anfang der Textdatei
                Return lines(line - 1)
            ElseIf line < 0 Then
                ' n-te Zeile beginnend am Ende der Textdatei
                Return lines(lines.Length + line - 1)
            Else
                ' ungültige Zeilennummer
                Return ""
            End If
        Catch ex As Exception
            Return ""
        End Try
    End Function