Curious what we can do for you?
©2024 Blue Polar. All rights reserved.
Public Function IsEmpty(ByVal Expression As Variant) As Boolean
Returns True if the specified variable/expression is of type 'Empty' (Thus the special type of value 'Empty', so not an empty string or Nothing, etc).
Dim lInputFileText As Variant 'Is initialized to 'Empty'
Public Function GetInputFileText() As String
Using Lock
If IsEmpty(lInputFileText) Then
lInputFileText = ReadFile("C:\Temp\MyInputFile") 'Only read once.
End If
End Using
Return lInputFileText
End Function