En verdad no conozco ese famoso SCHEMA.INI, pero si de manejar archivos .INI se trata... tengo lo que necesitas....
Esta declaracion ponla en el Modulo....
Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
.............................
Y la que sigue es la funcion que lee del INI ()
Function leer_delini(dondeesta As String, quebuscas As String, Optional quearchivo As String)
Dim pc As String
Dim i As Integer
If quearchivo = "" Then
quearchivo = "Contador.ini"
End If
pc = String$(255, " ")
i = GetPrivateProfileString(dondeesta, quebuscas, "", pc, Len(pc), quearchivo)
pc = Trim(pc)
pc = Left(pc, Len(pc) - 1)
leer_delini = pc
End Function
---------------------
Que la aproveches!
