Public Settings As New PropertyBag
 
Private Sub Main()
  Dim Content As Variant
 
  If Dir$("User.dat") <> "" Then
    Open "User.dat" For Binary As #1
      Get #1, , Content
    Close #1
 
    Settings.Contents = Content
  Else
    With Settings
      .WriteProperty "UserName", "Gast"
      ' weitere Properties
    End With
 
    Open "User.dat" For Binary As #1
      Put #1, , Settings.Contents
    Close #1
  End If
 
  frmMain.Show
End Sub

Private Sub Form_Load()
  lblUser.Caption = Settings.ReadProperty("UserName")
End Sub

Private Sub cmdSave_Click()
  With Settings
    .WriteProperty "UserName", txtUser.Text
    ' weitere Properties
  End With
 
  If Dir$("User.dat") <> "" Then Kill "User.dat"
 
  Open "User.dat" For Binary As #1
    Put #1, , Settings.Contents
  Close #1
End Sub

Gruß
Marcus