Option Strict Off
Option Explicit On
Module modFuntkionen
 
Private _sURL, _gPfadIntern, _gUser, _gPasswort As String
 
Public Property gUser() As String
        Get
            Return _gUser
        End Get
        Set(ByVal value As String)
            _gUser = value
        End Set
    End Property
 
    Public Property gPasswort() As String
        Get
            Return _gPasswort
        End Get
        Set(ByVal value As String)
            _gPasswort = value
        End Set
    End Property
 
    Public Property sURL() As String
        Get
            Return _sURL
        End Get
        Set(ByVal value As String)
            _sURL = value
        End Set
    End Property
 
Public Property gPfadIntern() As String
        Get
            Return _gPfadIntern
        End Get
        Set(ByVal value As String)
            _gPfadIntern = value
        End Set
    End Property
 
Public Function Get_Intern() As String
 
        On Error GoTo Fehler
 
        Return "Wert"
 
        Exit Function
 
Fehler:
        Call Log.WriteLine_Renamed("GI - " & Err.Description, _
          Log.e_logging_severity.LOG_ERROR)
        Resume Next
 
    End Function
End Module

gPfadIntern = Get_Intern()