Dim Value As String
  Dim SectionHeader As String
  Dim varName As String
  Dim msIniFullFile As String
  Value = "1234"
  SectionHeader = "Test2"
  varName = "Test"
  msIniFullFile = App.Path & "	est.ini"
 
  Call WritePrivateProfileString(SectionHeader, varName, Value, msIniFullFile)