Public Function GetVar (argName As String, Optional argType As enumVariableType = varString) As Variant


    Dim VariableAsString As String
    VariableAsString = GetSetting(App.Title, "General Variables", argName, "")
    
    Select Case argType
        Case varString
            GetVar = VariableAsString
            
        Case varBoolean
            If VariableAsString = "" Then
                GetVar = False
            Else
                GetVar = CBool(VariableAsString)
            End If
            
        Case varInteger
            If VariableAsString = "" Then
                GetVar = 0
            Else
                GetVar = Val(VariableAsString)
            End If
        
        Case Else
    End Select
End Function