Spanish Ayuda para guardar archivo

'Descargar Archivo SQLITE con los pedidos
Sub DownloadDB_Pedido(s_ar_nombre_archivo As String) As ResumableSub
    Dim j As HttpJob
    Dim lb_resultado As Boolean = False
    j.Initialize("", Me)
    j.Download(s_url_downloadFiles&s_ar_nombre_archivo)
    Wait For (j) JobDone(j As HttpJob)
    If j.Success Then
        If File.Exists(File.DirInternal,"pedido.db") Then File.Delete(File.DirInternal, "pedido.db")
        Dim out_archivo As OutputStream = File.OpenOutput(File.DirInternal, "pedido.db", False)
        File.Copy2(j.GetInputStream, out_archivo)
        out_archivo.Close
        lb_resultado = True
    Else
        lb_resultado = False
    End If
    j.Release
    Return lb_resultado
End Sub