incrustarlo en el code lo hallo inexistente
para darte nuevas ideas, otros caminos,
igual de interesante te dejo el codigo
de como leer y escribir archivos INI 

En un Modulo inserta el siguiente codigo:

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
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
 
Function ReadINI(strSection As String, strSetting As String, strDefault As String, strRuta As String)
    Dim lngReturn As Long, strReturn As String, lngSize As Long
    lngSize = 255
    strReturn = String(lngSize, 0)
    lngReturn = GetPrivateProfileString(strSection, strSetting, strDefault, strReturn, lngSize, strRuta)
    If strReturn = "" Then
        ReadINI = strDefault
        WriteINI strSection, strSetting, strDefault
    Else
        ReadINI = LeftOf(strReturn, Chr(0))
    End If
End Function
 
Function WriteINI(strSection As String, strLValue As String, strRValue As String, strRuta As String)
    Dim lngReturn As Long
    lngReturn = WritePrivateProfileString(strSection, strLValue, strRValue, strRuta)
End Function
 
Function LeftOf(strData As String, strDelim As String) As String
    Dim intPos As Integer
 
    intPos = InStr(strData, strDelim)
    If intPos Then
        LeftOf = Left(strData, intPos - 1)
    Else
        LeftOf = strData
    End If
End Function
 

En el Form:

Private Sub Command1_Click()
' Esta es la funcion para guardar el tip en el ini
 
WriteINI "Tips", "ID", Text1, App.Path & "Tips.ini"
 
End Sub
 
Private Sub Command2_Click()
' Y con este boton obtenemos los datos en el Text1
 
Text1 = ReadINI("Tips", "ID", "1", App.Path & "Tips.ini")
 
End Sub
 

Ahi para que te entretengas adaptandolo jajajaja
duro trabajo xD

Suerte, Chauuuuuz