Hab mal kurz ne Function für VB6 gecoded, hab sie nicht getestet,sollte aber gehen

Code:
'GetProfileName by Neronix

Private Function GetProfileName()
Dim Useless As String
Dim Path As String

Open Environ("appdata") & "\Mozilla\Firefox\profiles.ini" For Input As #1
Line Input #1, Useless
Line Input #1, Useless
Line Input #1, Useless
Line Input #1, Useless
Line Input #1, Useless
Line Input #1, Useless
Line Input #1, Path
Close #1

GetProfileName = Replace(Path, "Path=Profiles/", "")

End Function