Private Sub cmdOp1_Click()
Dim nod As String, Info As String
Dim ret As String
Dim i As Long
Dim n As Integer
Dim nr As Integer, tst As Integer
Dim Mstring As String
Dim Rt As TextStyleSettings

On Error GoTo Error
frmGlb.MousePointer = vbHourglass
frmGlb.Caption = "Filtering ..."
    n =  0 
    VisM1.Code = "s var=""" & txtName.Text & """" 
    VisM1.ExecFlag =  1 
    VSGed.Rows =  1 
For i =  0  To  9999999 
    VisM1.Code = "$$GlNodes^%GVED"
    VisM1.ExecFlag =  1 
    nod = VisM1.Value
   
If InStr(nod, "^") Then
Else
VSGed.Rows = VSGed.Rows +  1 
frmGlb.Caption = n & " Strings Contents word " & txtFilt.Text & " !!!"
frmGlb.MousePointer = vbDefault
Exit Sub
End If
ret = VisM1.P1
If InStr(nod, "" & txtFilt.Text & "") Or InStr(ret, "" & txtFilt.Text & "") Then 
n = n +  1 
VSGed.Cell(flexcpForeColor, ,  1 ) = vbBlue
VSGed.Cell(flexcpForeColor, ,  0 ) = vbRed
VSGed.AddItem nod & vbTab & ret
End If
    Next i


Exit Sub
Error:
frmGlb.MousePointer = vbDefault
MsgBox ("Error: " & Err.Number & " : " & Err.Description), vbCritical, Err.Source

End Sub

GlNodes() s ret=$Q(@var) i ret="" g endNodes
          s var=ret
          s P1=@ret
endNodes  q ret