It's a text string from a control in a toolbar
[vba]Public myVal As String

If MyButton1 Is Nothing Then
Set MyButton1 = Application.CommandBars(YOUR_TOOLBAR_NAME).Controls.Add(Type:=msoControlCom boBox)
End If
With MyButton1
.Width = 50
.Visible = True
End With

Sub SaveSettingIni(iToolBar As CommandBar)
Dim DirLoc As String
DirLoc = "C:\macros\"
With iToolBar
WriteIniValue DirLoc & "margins.ini", "Settings", "Margin", myVal
WriteIniValue DirLoc & "margins.ini", "Settings", "Units", myUnits

WriteIniValue DirLoc & "margins.ini", "Settings", "Position", CStr(.Position)
WriteIniValue DirLoc & "margins.ini", "Settings", "RowIndex", CStr(.RowIndex)
WriteIniValue DirLoc & "margins.ini", "Settings", "Left", CStr(.Left)
WriteIniValue DirLoc & "margins.ini", "Settings", "Top", CStr(.Top)
End With
End Sub

Sub ReadSettingIni(iToolBar As CommandBar)
Dim DirLoc As String
DirLoc = "C:\macros\"
With iToolBar
myVal = ReadIniValue(DirLoc & "margins.ini", "Settings", "Margin")
myUnits = ReadIniValue(DirLoc & "margins.ini", "Settings", "Units")
MyButton2.State = IIf(myUnits = "in", msoButtonDown, msoButtonUp)
MyButton3.State = IIf(myUnits = "cm", msoButtonDown, msoButtonUp)
MyButton1.Text = myVal '<---
.Position = Val(ReadIniValue(DirLoc & "margins.ini", "Settings", "Position"))
.RowIndex = Val(ReadIniValue(DirLoc & "margins.ini", "Settings", "RowIndex"))
.Left = Val(ReadIniValue(DirLoc & "margins.ini", "Settings", "Left"))
.Top = Val(ReadIniValue(DirLoc & "margins.ini", "Settings", "Top"))
End With
End Sub[/vba]