Do While ie.Busy
             DoEvents
          Loop
          DoEvents
          Sleep 2000
          Text2.Text = ie.Document.body.outerhtml
         If Text2.Text <> "" Then
             lresult = SendMessage(ie.hWnd, WM_CLOSE, 0, 0&)
         End If
         If InStr(Text2, "UF") = 0 Then
             Text2.Text = ""
             Else

             uf = Cint(Request.form ("UF"))
             valor = CInt(Text2)
             resultado = uf + valor

             If Text14 = "" Then Text14 =   CStr(resultado)   &  ' Saldo Total
             Text14.Text = Mid(Text14.Text, 1, InStr(1, Text14, " ") - 1)'
        End If
     End If