Sub ausg(x)
  Dim ausgmsgbox
  ausgmsgbox = MsgBox(x, vbOKOnly+vbSystemModal+VBInformation, "Gadget Denk-Daran: " & atg)
End Sub

Function updatmeld
  Dim updatinst
  updatinst = MsgBox(upm_f1, vbYesNo+vbSystemModal+VBInformation+vbDefaultButton1, "Gadget Denk-Daran: " & upv_f1)
	'auswertung
	If updatinst = vbYes then
		updatmeld = 1 'update installieren
	ElseIf updatinst = vbNo then
		Dim updatwiederhol
  	updatwiederhol = MsgBox(upm_f2, vbYesNo+vbSystemModal+VBInformation+vbDefaultButton1, "Gadget Denk-Daran: " & upv_f2)

		If updatwiederhol = vbYes then
			updatmeld = 0 'updatemeldung nochmal anzeigen
		ElseIf updatwiederhol = vbNo then
			updatmeld = 2 'updatemeldung für dieses update nicht mehr anzeigen
		End If
	End If
End Function

Function bestat(x)
  bestat = MsgBox(x, vbYesNo+vbSystemModal+VBQuestion+vbDefaultButton2, "Gadget Denk-Daran: " & ems)
End Function

Function fehlausg(str_fehler)
  fehlausg = MsgBox(eif _
		& vbCrLf & vbCrLf & str_fehler _
		& vbCrLf & vbCrLf & errortext _
		, vbYesNo+vbSystemModal+VBCritical, "Gadget Denk-Daran: " & ero)
End Function

Function datnam
	datnam = InputBox(angtxt, "Gadget Denk-Daran: " & ang, das & " Denk-Daran " & vers)
End Function

'vbSystemModal = Fenster in den Vordergrund setzen
'vbCrLf = Umbruch
'" _" = Hinweis darauf, dass der Befehl in der nächsten Zeile fortgesetzt wird