是不是我这个问题太菜了，大家都难得回答啊，拜托啊

API:
WritePrivateProfileString 
GetPrivateProfileString

我也是菜鸟！不要笑话！！！！
引用Microsoft Scripting Runtime

'假定你的ini文件在当前文件夹下

Dim FSO As New FileSystemObject
Dim Str As String
Str = App.Path & "\config.ini"
If FSO.FileExists(Str) = True Then
    Dim FS As Integer
    Dim TS As String
    Open Str For Input As #FS
        Do While Not EOF(FS)
            Line Input #FS, TS
                Select Case Mid(TS, 1, 6)
                    Case "QQ2008"
                        TS = Mid(TS, 9, Len(TS) - 8)
                    Case "QQ2009"
                        TS = Mid(TS, 9, Len(TS) - 8)
                End Select
         Loop
    Close #FS
set fso=nothing
End If

谢谢楼上仁兄