.net app.config med reference til konstant?

Private Shared Function getForsendelsesServiceV2Client() As ForsendelsesServiceV2Client
        Dim objMessageEncoding As New ServiceModel.Channels.MtomMessageEncodingBindingElement()
        With objMessageEncoding
            .MaxReadPoolSize = 211
            .MaxWritePoolSize = 2132
            .MessageVersion = ServiceModel.Channels.MessageVersion.Soap12
            .WriteEncoding = System.Text.Encoding.UTF8
        End With

        Dim objTrandportBinding As New ServiceModel.Channels.HttpsTransportBindingElement()
        With objTrandportBinding
            .AuthenticationScheme = Net.AuthenticationSchemes.Basic
            .DecompressionEnabled = True
            .TransferMode = ServiceModel.TransferMode.Buffered
        End With

        Dim objEndpoint As New ServiceModel.EndpointAddress(_ServiceEndpointAddress)
        Dim objBinding As New ServiceModel.Channels.CustomBinding(objMessageEncoding, objTrandportBinding)

        Dim forsendelsesService As New ForsendelsesServiceV2Client(objBinding, objEndpoint)

        Dim oCredentials As System.Net.NetworkCredential = getCredentialsFromConfig()

        If (oCredentials.UserName <> String.Empty And oCredentials.Password <> String.Empty) Then
            forsendelsesService.ClientCredentials.UserName.UserName = oCredentials.UserName
            forsendelsesService.ClientCredentials.UserName.Password = oCredentials.Password
            Return forsendelsesService
        Else
            Throw New Exception("API username og/eller password konfiguration ikke fundet.")
            Return Nothing
        End If
    End Function