Sub Form_Load()
Dim sR As String
Dim lR As String

lR = WriteINIString("Main", "Item1", "Value1")
sR = ReadINIString("Main", "Item1", "Default")
MsgBox "INI Värde: " & sR
End Sub