Attribute VB_Name = "gfSettings"
Public Function GetSettingValue(varName As String) As String

  GetSettingValue = GetSetting("GfSettings", "Otlk", varName, "0")
  
End Function
Public Function SetSettingValue(varName As String, varValue As String)

  Call SaveSetting("GfSettings", "Otlk", varName, varValue)
  
End Function
'
Public Sub test()


'Call DeleteSetting("GfSettings", "Otlk")
'    'SaveMyVariable (56)
'
End Sub