How to wait for that lisp function ?

Hi

i wrote some code but it wont work as it should. The program starts in the vb file call a lisp file run function but it first should create a hatch and then go forward how to wait for the lisp file to run and then do the rest of the code i have no idea

The VB.NET

    <CommandMethod("str")> _
   Public Sub str()
       kreskowanie()

       Dim lCmd As Editor = Application.DocumentManager.MdiActiveDocument.Editor
       Dim acBaza As Database = lCmd.Document.Database
       Dim typeValue() As TypedValue = {New TypedValue(0, "hatch")}
       Dim selFilter As SelectionFilter = New SelectionFilter(typeValue)
       Dim selResult As PromptSelectionResult = lCmd.SelectAll(selFilter)

       Dim ssHatch As SelectionSet = selResult.Value
       Dim tabId_HatchObjId() As ObjectId
   End Sub

   Public Sub kreskowanie()
       Dim lCmd As Editor = Application.DocumentManager.MdiActiveDocument.Editor
       Dim acBaza As Database = lCmd.Document.Database
       Dim myDWG As ApplicationServices.Document = ApplicationServices.Application.DocumentManager.MdiActiveDocument

       Using trn As Transaction = acBaza.TransactionManager.StartTransaction

           Dim cmdString As String
           cmdString = ("(load ""C:/kreskowanie.LSP"" ""The load failed"")" & Chr(13))
           myDWG.SendStringToExecute(cmdString, True, False, False)

           cmdString = ("(h_kreska)" & Chr(13))
           myDWG.SendStringToExecute(cmdString, True, False, False)

           trn.Commit()
       End Using

   End Sub

The LISP file

(defun H_KRESKA ()
 (setq lp (getvar "clayer"))
 (prompt "\nWybierz wnetrze: ")
 (bhatch)
 (while (eq 1 (logand 1 (getvar "cmdactive")))
   (command pause))
 (if (tblsearch "layer" "A-HATCH")
   (command "_.chprop" "_last" "" "_layer" "A-HATCH" ""))
 (if lp
   (setvar "clayer" lp))
 (princ)
)