Initial

EDOKA/Backup/Utils/MyText.vb

@@ -0,0 +1,10 @@
+Namespace EDOKA
+    Public Class MyText
+        Inherits EDOKA.MyMessage
+
+        Public Function gettext(ByVal wert As Integer) As String
+            gettext = Me.Get_Meldungstext(wert)
+        End Function
+
+    End Class
+End Namespace