Muy bien, pero el archivo de texto es como dije anteriormente:
LLAVE=VALOR ;COMENTARIO
Si lo pudiera separar todos con comas funcionaria, pero como digo no puedo cambiar la estructura del txt.No cambies la extructura del txt, crea una cadena con el txt y modificala
Dim cadena$: cadena = "usuario = felipito ;Nombre de usuario" + vbNewLine + "password = 1234 ;password del usuario" + vbNewLine + "rango = 3 ;Rango de usuario: 1= admin, 2=normal, 3=mod"
MsgBox cadena
cadena = Replace(cadena, "usuario =", "usuario ,")
cadena = Replace(cadena, "password =", "password ,")
cadena = Replace(cadena, "rango =", "rango ,")
cadena = Replace(cadena, ";", ",")
cadena = Replace(cadena, "1= admin, 2=normal, 3=mod", "1= admin 2=normal 3=mod")
MsgBox cadena
Saludos