If Mappi.IsInitialized = True Then
EditTextName.InputType = EditTextName.Text
EditTextemail.InputType = EditTextemail.Text
Mappi.Put("vornachname",EditTextName.Text)
Mappi.Put("emailadresse",EditTextemail.Text)
For Each v As Int In Mappi.Values
Log(v)
Next
File.WriteMap(share & "/testdir","userdata.map",Mappi)
End If