coco86 0 Light Poster

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

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.