Please help me!!! i've done somecode but it doesnt seems to match... error Out of stack space..
Public Function isEmpty()
Dim MyVar As String, MyCheck As String
MyCheck = isEmpty(MyVar) ' Returns True.
MyVar = Null ' Assign Null.
MyCheck = isEmpty(MyVar) ' Returns False.
MyVar = Empty ' Assign Empty.
MyCheck = isEmpty(MyVar) ' Returns True.
End Function
Do While Not ts.AtEndOfStream
d = ts.ReadLine
Call tracingFNDat(Mystring)
'function '
If isEmpty(Mfgno) Then
lbl1.Caption = "Error"
Else
lbl1.Caption = "NoError"
End If