Hola!
Hazle caso a
Kruzado, pero utiliza Replace así:
cadena = Replace(cadena,
vbCrLf, "")
vbCrLf equivale a concatenar Chr(10) (salto de línea) con Chr(13) (retorno de carro), que son los dos caracteres que te muestra "falsos" porque al leer el fichero estás concatenándolo al final de cada línea leída:
Código:
Open "\eko.ini" For Input As #1
Dim Linea As String, Total As String
Do Until EOF(1)
Line Input #1, Linea
Total = Total & Linea & vbCrLf ' Cuando lee la última línea, te concatena
' esto también, así que puedes controlarlo
' aquí o a posteriori con Replace; por cierto,
' para concatenar usa el ampersand (&)
' en lugar de +
Loop
Close #1
Para dividir líneas, utiliza siempre
Split, que es más rápida, aunque si vas a coger el principio o el final de una cadena, utiliza
Left o
Right, en lugar de
Mid. Se leen mejor y están optimizadas para esa funcionalidad.
Respecto a las CheckBoxes, la propiedad Value devuelve 0, 1 ó 2, respectivamente vbUnchecked, vbChecked o vbGrayed, te recomiendo comparar siempre contra esas constantes, salvo que quieras hacer algún truquillo
