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