Imports Microsoft.VisualBasic

Public Class VERAG_VARIABLES
    Public Shared errornumb As Integer = 0
    Shared Sub initerrorcount()
        errornumb = 0
    End Sub
    Shared Sub seterrorcount(var As Integer)
        errornumb += 1
    End Sub
    Shared Function geterrornumb() As String
        Return Environment.NewLine + "Error:" + Space(1) + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(errornumb.ToString) + Space(1)
    End Function
    Shared Function getErrorcodeindez(Errorcode As String) As String
        Return VERAG_PROG_ALLGEMEIN.cCryptography3.Decrypt(Errorcode)
    End Function
End Class