Dim Buffer As String
Buffer = String(1024,32)
shpfile = IniStringLesen(Benutzername, "karte", "Ungültig" & vbNullString, _
  Buffer, 100, App.Path & "\GISA.ini")
Buffer = RTrim(Left(Buffer, Len(Buffer) - 2))
MsgBox Buffer