como posso voltar uma linha de comando com VBSCRIPT.

[Roberval Nascimento]

EXEMPLO: Abaixo vocês vão ver um (LOOP) para realizar uma fatura no SAP porem antes ele faz uma pesquisa, e é ai que vocês entrão

o comando (GOTO) que funciona muito bem no excel aqui no VBS não funciona e gostaria de saber como posso subistituir

If Session.findById("wnd[0]/usr/sub/1[0,0]/sub/1/3[0,2]/sub/1/3/4[0,6]/lbl[65,6]").Text <> 0 Then

NOVAMENTE: 'AQUI DE ONDE ELE IRÁ VOLTAR

    For X = 1 To 1000

        Session.findById("wnd[0]/usr/sub/1[0,0]/sub/1/3[0,2]/sub/1/3/4[0,6]/lbl[15,6]").SetFocus 'SELECIONA A DT
        Session.findById("wnd[0]/usr").verticalScrollbar.Position = POSICAO
        Session.findById("wnd[0]/usr").verticalScrollbar.Position = POSICAO + 1

        If Session.findById("wnd[0]/usr/sub/1[0,0]/sub/1/3[0,2]/sub/1/3/4[0,6]/lbl[65,6]").Text = 0 Then

            Session.findById("wnd[0]/usr/sub/1[0,0]/sub/1/3[0,2]/sub/1/3/4[0,6]/lbl[31,6]").SetFocus 'SELECIONA O +
            Session.findById("wnd[0]").sendVKey 2 'CLICA NO +

            Session.findById("wnd[0]/usr/sub/1[0,0]/sub/1/3[0,2]/sub/1/3/4[0,6]/sub/1/3/4/5[0,7]/lbl[17,7]").SetFocus
            Session.findById("wnd[0]").sendVKey 2 'CLICA NO +

            Session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02").Select 'SELECIONA A 2ª ABA PICKING

            LIN_SAP = 0
            For W = 1 To 10

                AA = Session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02/ssubSUBSCREEN_BODY:SAPMV50A:1104/tblSAPMV50ATC_LIPS_PICK/ctxtLIPS-MATNR[1," & LIN_SAP & "]").Text
                Session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02/ssubSUBSCREEN_BODY:SAPMV50A:1104/tblSAPMV50ATC_LIPS_PICK/ctxtLIPS-MATNR[1," & LIN_SAP & "]").SetFocus
                LIN_SAP = LIN_SAP + 1

                If W >= 7 Then GoTo CONTINUAR 'AQUI ELE SAI DO LOOP

                If AA = "" Then
                    Session.findById("wnd[0]").sendVKey 3
                    Session.findById("wnd[0]/usr/sub/1[0,0]/sub/1/3[0,2]/sub/1/3/4[0,6]/lbl[31,6]").SetFocus 'SELECIONA O +
                    Session.findById("wnd[0]").sendVKey 2 'CLICA NO +
                    POSICAO = POSICAO + 2

                    GoTo NOVAMENTE 'AQUI ELE VOLTA PRO INICIO DO LOOP

                End If

            Next

        End If

        POSICAO = POSICAO + 2

    Next

End If

CONTINUAR: 'AQUI É DE ONDE ELE CONTINUA O PULO