有API可用,也可以自己读文件来分析(如果格式复杂就麻烦点)

'下面是具体例程,放入模块即可
Option Explicit
Public ReportStime As String
Public ReportEtime As String

Public ServerIp As String
'为初始化文件中指定的条目取得字串
Public 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

'在初始化文件指定小节内设置一个字串
Public Declare Function WritePrivateProfileString Lib "kernel32" _
Alias "WritePrivateProfileStringA" ( _
    ByVal lpApplicationName As String, _
    ByVal lpKeyName As Any, _
    ByVal lpString As Any, _
    ByVal lpFileName As String) As Long
    
' 获取指定小节所有项名和值的一个列表
Public Declare Function GetPrivateProfileSection Lib "kernel32" _
Alias "GetPrivateProfileSectionA" ( _
    ByVal lpAppName As String, _
    ByVal lpReturnedString As String, _
    ByVal nSize As Long, _
    ByVal lpFileName As String) As Long

Public Declare Function GetTickCount Lib "kernel32" () As Long


Public Sub Pause(HowLong As Long)
    Dim u%, tick As Long
    tick = GetTickCount()
    Do
        u% = DoEvents
    Loop Until tick + HowLong < GetTickCount
End Sub
 
Public Function WriteString(ByVal FileName As String, ByVal section As String, ByVal key As String, Value As String)
    WritePrivateProfileString section, key, Value, FileName
End Function

Public Function ReadString(ByVal FileName As String, ByVal section As String, ByVal key As String, ByVal size As Long) As String
    'size表示字符串长度，含结束符
    Dim ReturnStr As String
    Dim ReturnLng As Long
    ReadString = vbNullString
    ReturnStr = Space(size)
    ReturnLng = GetPrivateProfileString(section, key, vbNullString, ReturnStr, size, FileName)
    ReadString = RTrim(Replace(Left(ReturnStr, ReturnLng), Chr(0), Chr(32)))
End Function